home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / misc / tsb-vdes.lha / Sources / filledexample.S < prev    next >
Encoding:
Text File  |  1996-03-29  |  70.5 KB  |  1,996 lines
  1. *********************************************************
  2. ***   Filled Vector example for TSB's Vectordesigner  ***
  3. ***   ----------------------------------------------  ***
  4. ***                                                   ***
  5. ***                written by ALLOC                   ***
  6. ***                                                   ***
  7. *********************************************************
  8. ;---------------------------------------
  9. ; a  (return)
  10. ;(return)
  11. ; y  (return)
  12. ; jm (return)
  13.  
  14.  
  15. >extern "df0:readyobjects/box.f",obj1coordstable
  16. org $30000
  17. load $30000
  18. clrscr:     MACRO
  19.     movem.l    d0/d1/a5,-(a7)
  20.     lea    $dff000,a5
  21. mc_wait?0:
  22.     btst    #14,$02(a5)
  23.     bne.s    mc_wait?0
  24.     move.l    ?1,$54(a5)
  25.     move.w    ?2,d0       ;x
  26.     move.w    ?3,d1       ;y
  27.     move.w    ?4,$66(a5)
  28.     move.w    #%0000000100000000,$40(a5)
  29.     move.w    #0,$42(a5)
  30.     lsl.w    #6,d1
  31.     or.w    d1,d0
  32.     move.w    d0,$58(a5)
  33.     movem.l    (a7)+,d0/d1/a5
  34.     ENDM
  35.  
  36.  
  37.  
  38.  
  39. clear:     MACRO
  40.     lea    $dff000,a5
  41. clearwait?0:
  42.     btst    #14,2(a5)
  43.     bne.s    clearwait?0
  44.     move.l    ?1,d0
  45.     addq.l    #4,d0
  46.     move.l    d0,$54(a5)
  47.     move.w    ?2,d0       ;x
  48.     move.w    ?3,d1       ;y
  49.     move.w    ?4,$66(a5)
  50.     move.w    #%0000000100000000,$40(a5)
  51.     move.w    #0,$42(a5)
  52.     lsl.w    #6,d1
  53.     or.w    d1,d0
  54.     move.w    d0,$58(a5)
  55.     ENDM
  56.  
  57. m:
  58.     
  59.          lea    $dff000,a5
  60.         movem.l    d0-d7/a0-a6,-(a7)
  61.         moveq    #61,d0
  62.         lea    zero,a0
  63.         lea    8,a1
  64. copyzero:    move.l    (a1)+,(a0)+
  65.         dbf    d0,copyzero
  66.         move.l    #raus,$020
  67. raus:        move.w    #$2700,sr
  68.         adda    #6,a7
  69.         move.l    a7,sstack
  70.         move.l    #stackend,a7
  71.         move.w    $1c(a5),intbuff
  72.         move.w    #$7fff,$9a(a5)
  73.         move.w    #$7fff,$9c(a5)
  74.         bra.L    main        
  75. oson:        move.w    #$2700,sr
  76.         move.w    #$7fff,$9a(a5)
  77.         move.w    intbuff(pc),d0
  78.         ori.w    #$8000,d0
  79.         move.w    d0,$9a(a5)
  80.         moveq    #61,d0
  81.         lea    zero(pc),a0
  82.         lea    8,a1
  83. zeroback:    move.l    (a0)+,(a1)+
  84.         dbf    d0,zeroback
  85.         move.l    sstack(pc),a7
  86.         move.w    #0,sr
  87.         movem.l    (a7)+,d0-d7/a0-a6
  88.         rts
  89. grname:        dc.b    "graphics.library",0
  90.         align    4
  91.  
  92. zero:        blk.l    62,0
  93.         align    4
  94. sstack:        dc.l    0
  95. stack:        blk.b    4048
  96. stackend:
  97.         align    4
  98.  
  99. intbuff:    dc.l    0
  100.         align    4
  101.  
  102.  
  103. main:        
  104. **********************
  105. *** Voreinstellung ***
  106. **********************
  107.     bsr    objadd
  108.     lea    $70000,a0
  109.     move.l    #$ffff,d0
  110. spclear:
  111.     move.b    #0,(a0)+
  112.     dbf    d0,spclear
  113.  
  114.  
  115.     lea    $dff000,a5
  116.     move.l    #$ffffffff,$44(a5)
  117.     move.w    #%1000010000000000,$96(a5)
  118.     move.w    #%0000011111111111,$96(a5)
  119.     move.l  #copperlist,$80(a5)
  120.     move.w  #%1000011111100000,$96(a5)
  121.     lea    hauptloop(pc),a4
  122.     move.l    a4,$6c        
  123.     move.w    #$c010,$9a(a5)
  124.     move.w    #$2000,sr
  125.  
  126. ************
  127. *** Wait ***
  128. ************
  129.  
  130. wait:    
  131.     btst    #6,$bfe001
  132.     beq    end
  133. swait:
  134.     move.l    $dff004,d0
  135.     and.l    #$1ff00,d0
  136.     cmp.l    #$12900,d0
  137.     ble    swait
  138.     bsr    filledvectors
  139.     move.w    #$2700,sr
  140.     move.l    showplane,a0
  141.     move.l    workplane,showplane
  142.     move.l    a0,workplane
  143.     move.w    #$2000,sr
  144.     bra    wait        
  145.  
  146.  
  147.  
  148.  
  149. **************************
  150. ******    Hauptteil  *******
  151. **************************
  152.  
  153. hauptloop:
  154.     move.w    #$10,$dff09c        
  155.     movem.l    d0-d7/a0-a6,-(a7)
  156.     moveq    #3,d7
  157.     lea    planeadrs,a0
  158.     move.l    showplane,d0
  159. setplanes:
  160.     swap    d0
  161.     move.w    d0,2(a0)
  162.     swap    d0
  163.     move.w    d0,6(a0)
  164.     add.l    #8,a0
  165.     add.l    #150*40,d0
  166.     dbf    d7,setplanes
  167.     add.w    #1,speedpointer
  168. hplend:
  169.     movem.l    (a7)+,d0-d7/a0-a6
  170.     rte                
  171. workplane:
  172.     dc.l    $7a240
  173. showplane:
  174.     dc.l    $74480
  175.  
  176. speedpointer:
  177.     dc.w    0
  178. speed:
  179.     dc.w    1
  180.  
  181.  
  182. *************************************************
  183. ;This routine adds the Lableadresses to all 
  184. ;adresses in the objects.
  185. ;Insert the Load-Lables after -objectsaddtable-!!!
  186.  
  187. Objectsaddtable:
  188.     dc.l    obj1coordstable
  189.     dc.l    $ffffffff
  190.  
  191. objadd:
  192.     lea    objectsaddtable(pc),a0
  193. objadd1:
  194.     move.l    (a0)+,d0
  195.     cmp.l    #$ffffffff,d0
  196.     beq.s    objaddend
  197.     lea    1024,a2
  198.     add.l    d0,a2
  199. objadd2:
  200.     cmp.l    #$ffffffff,(a2)+
  201.     beq.s    objadd1
  202.     add.l    d0,-4(a2)
  203.     move.l    -4(a2),a3
  204. objadd3:
  205.     cmp.l    #$ffffffff,(a3)+
  206.     beq.s    objadd2
  207.     add.l    d0,-4(a3)    
  208.     bra    objadd3
  209. objaddend:
  210.     rts
  211.  
  212. **************************************************
  213.  
  214. Filledvectors:
  215.     movem.l    d0-d7/a0-a6,-(a7)
  216.     clrscr    workplane,#20,#600,#0
  217.     bsr    vectorloop
  218.     move.w    speedpointer,speed
  219.     clr.w    speedpointer    
  220.     movem.l    (a7)+,d0-d7/a0-a6
  221.     rts
  222.  
  223. ***********************
  224. *****  Vectorloop *****
  225. ***********************
  226.  
  227. vectorloop:
  228.     movem.l    d0-d7/a0-a6,-(a7)
  229.     lea    obj1table,a6
  230.     lea    obj1pos,a0
  231.     add.w    #26,12(a0)
  232.     add.w    #30,14(a0)
  233.     add.w    #38,16(a0)
  234.     and.w    #$1fff,12(a0)
  235.     and.w    #$1fff,14(a0)
  236.     and.w    #$1fff,16(a0)
  237.     bsr    coordscalc
  238.     bsr    d2coordscalc
  239.     bsr    ftesten
  240.     bsr    objzeichnen
  241.     movem.l    (a7)+,d0-d7/a0-a6
  242.     rts
  243. *********************
  244. ***   Coordscalc  ***
  245. *********************
  246. coordscalc:
  247.     move.l    4(a6),a3
  248.     move.l    12(a6),a4
  249.     move.l    28(a6),d0
  250.     move.l    (a4,d0),a4
  251.     move.l    16(a6),a5
  252.  
  253. coordscalcloop:
  254.     move.w    (a4),d0
  255.     cmp.w    #$7fff,d0
  256.     beq    coordscalcloopend
  257.     move.w    4(a4),d1
  258.     move.w    8(a4),d2
  259.     sub.w    24(a3),d0
  260.     sub.w    26(a3),d1
  261.     sub.w    28(a3),d2
  262.     move.w    12(a3),a0
  263.     move.w    14(a3),a1
  264.     move.w    16(a3),a2
  265.     bsr    rotate
  266.     add.w    24(a3),d0
  267.     add.w    26(a3),d1
  268.     add.w    28(a3),d2
  269.     add.w    (a3),d0
  270.     add.w    2(a3),d1
  271.     add.w    4(a3),d2
  272.  
  273.     move.w    d0,(a5)+
  274.     move.w    d1,(a5)+
  275.     move.w    d2,(a5)+
  276.     move.w    12(a4),(a5)+
  277.     add.l    #14,a4
  278.     bra    coordscalcloop
  279. coordscalcloopend:
  280.     move.w    #$7fff,(a5)
  281.     rts
  282.  
  283. ********************
  284. *** 2dcoordscalc ***
  285. ********************
  286.  
  287. d2coordscalc:
  288.     move.l    16(a6),a4
  289.     move.l    20(a6),a5
  290. d2coordscalcloop:
  291.     move.w    (a4)+,d0
  292.     cmp.w    #$7fff,d0
  293.     beq    d2coordscalcend
  294.     move.w    (a4)+,d1
  295.     move.w    (a4)+,d2
  296.     ext.l    d0
  297.     ext.l    d1
  298.     ext.l    d2
  299.     asl.l    #8,d0
  300.     asl.l    #8,d1
  301.     divs    d2,d0
  302.     divs    d2,d1
  303.     add.w    #75,d1
  304.     add.w    #159,d0
  305.     move.w    d0,(a5)
  306.     move.w    d1,2(a5)
  307.     move.w    (a4)+,4(a5)
  308.     add.l    #8,a5
  309.     bra    d2coordscalcloop
  310. d2coordscalcend:
  311.     move.w    #$7fff,(a5)
  312.     rts
  313.  
  314. ***************
  315. *** Ftesten ***
  316. ***************
  317. ;   a4  ftable    a5  3dcoords
  318.  
  319. ftesten:
  320.     move.l    16(a6),a5
  321.     move.l    12(a6),a4
  322.     move.l    28(a6),d0
  323.     move.l    4(a4,d0),a4
  324. ftestloop:
  325.     move.l    (a4)+,a0
  326.     cmp.l    #$ffffffff,a0
  327.     beq.s    ftestloopend
  328.     move.l    (a0),a0
  329.     move.l    a5,a1
  330.     bsr    sichttest
  331.     bra    ftestloop
  332. ftestloopend:
  333.     rts
  334.  
  335.  
  336. *******************
  337. *** OBJzeichnen ***
  338. *******************    
  339. ; a4  ftable    a5  2dcoords
  340. objzeichnen:
  341.     move.l    12(a6),a4
  342.     move.l    28(a6),d0
  343.     move.l    4(a4,d0),a4
  344.     move.l    20(a6),a5    
  345. objzloop:
  346.     move.l    (a4)+,a2
  347.     cmp.l    #$ffffffff,a2
  348.     beq.s    objzloopend
  349. objzloop2:
  350.     move.l    (a2)+,a0
  351.     cmp.l    #$ffffffff,a0
  352.     beq.s    objzloop
  353.     tst.w    (a0)
  354.     beq.s    objzloop2
  355.     move.l    a5,a1
  356.     bsr    fill
  357.     bra    objzloop2
  358. objzloopend:
  359.     rts
  360.  
  361. *****************
  362. *** Sichttest ***
  363. *****************
  364. ;a0   coordstable
  365. ;a1   coords
  366.  
  367. sichttest:
  368.     movem.l    d0-d7/a0-a6,-(a7)
  369.     move.w    6(a0),d7
  370.     lsl.w    #3,d7
  371.     move.w    (a1,d7.w),d0
  372.     move.w    2(a1,d7.w),d1
  373.     move.w    4(a1,d7.w),d2
  374.     asr.w    #1,d0
  375.     asr.w    #1,d1
  376.     asr.w    #1,d2
  377.     move.w    d0,a3
  378.     move.w    d1,a4
  379.     move.w    d2,a5
  380.     move.w    2+6(a0),d7
  381.     lsl.w    #3,d7
  382.     move.w    (a1,d7.w),d0
  383.     move.w    2(a1,d7.w),d1
  384.     move.w    4(a1,d7.w),d2
  385.     asr.w    #1,d0
  386.     asr.w    #1,d1
  387.     asr.w    #1,d2
  388.     move.w    4+6(a0),d7
  389.     lsl.w    #3,d7
  390.     move.w    (a1,d7.w),d3
  391.     move.w    2(a1,d7.w),d4
  392.     move.w    4(a1,d7.w),d5
  393.     asr.w    #1,d3
  394.     asr.w    #1,d4
  395.     asr.w    #1,d5
  396.     sub.w    a3,d0    ;v
  397.     sub.w    a4,d1
  398.     sub.w    a5,d2
  399.     sub.w    a3,d3    ;w
  400.     sub.w    a4,d4
  401.     sub.w    a5,d5
  402.     move.w    d0,vx+2
  403.     move.w    d0,vx2+2
  404.     move.w    d1,vy+2
  405.     move.w    d1,vy2+2
  406.     move.w    d2,vz+2
  407.     move.w    d2,vz2+2
  408.     move.w    d3,d0
  409.     move.w    d4,d1
  410.     move.w    d5,d2
  411. vy:
  412.     muls    #0,d5
  413. vz:
  414.     muls    #0,d1
  415.     sub.w    d1,d5
  416.             ;x
  417. vz2:
  418.     muls    #0,d3
  419. vx:
  420.     muls    #0,d2
  421.     sub.w    d2,d3
  422.             ;y
  423. vx2:
  424.     muls    #0,d4
  425. vy2:
  426.     muls    #0,d0
  427.     sub.w    d0,d4
  428.             ;z
  429.     move.w    a3,d0
  430.     move.w    a4,d1
  431.     move.w    a5,d2
  432.  
  433.     muls    d0,d5
  434.     muls    d1,d3
  435.     muls    d2,d4
  436.     add.l    d3,d4
  437.     add.l    d4,d5
  438.     tst.l    d5
  439.     bge.s    unsich
  440. sich:
  441.     move.w    #0,(a0)
  442.     bra.s    sichtend
  443. unsich:
  444.     move.w    #1,(a0)
  445. sichtend:
  446.     movem.l    (a7)+,d0-d7/a0-a6
  447.     rts
  448.  
  449.  
  450. *************************
  451. **** Flaechenfuellen ****
  452. *************************
  453. ;a0 Tabelle mit Coordszeiger
  454. ;a1 Coords
  455.  
  456.  
  457. fill:
  458.     movem.l    d0-d7/a2-a6,-(a7)
  459.     clrscr    #$72d10,with,high,modu
  460.     move.w    2(a0),d7
  461.     move.w    d7,coordsanzahl
  462.     clr.w    fcolor
  463.     move.b    5(a0),fcolor+1
  464.     subq.w    #1,d7
  465.     addq.l    #6,a0
  466.     move.w    #$7fff,xminwert
  467.     move.w    #$7fff,yminwert
  468.     clr.w    xmaxwert
  469.     clr.w    ymaxwert
  470.  
  471.     lea    fillcoordstable(pc),a5
  472. makefillcoordstable:
  473.     move.w    (a0)+,d0
  474.     lsl.w    #3,d0
  475.     move.l    a0,a3
  476.     sub.l    a6,a3
  477.     move.w    (a1,d0.w),d1
  478.     move.w    2(a1,d0.w),d2
  479.     cmp.w    xminwert(pc),d1
  480.     bge.s    xminset
  481.     move.w    d1,xminwert
  482. xminset:
  483.     cmp.w    yminwert(pc),d2
  484.     bge.s    yminset
  485.     move.w    d2,yminwert
  486. yminset:
  487.     cmp.w    xmaxwert(pc),d1
  488.     ble.s    xmaxset
  489.     move.w    d1,xmaxwert
  490. xmaxset:
  491.     cmp.w    ymaxwert(pc),d2
  492.     ble.s    ymaxset
  493.     move.w    d2,ymaxwert
  494. ymaxset:
  495.     move.w    d1,(a5)+
  496.     move.w    d2,(a5)+
  497.     dbf    d7,makefillcoordstable
  498.  
  499.  
  500.     lea    fillcoordstable(pc),a2
  501.     move.w    coordsanzahl(pc),d7
  502.     subq.w    #2,d7
  503.     move.w    xminwert(pc),d4
  504.     move.w    yminwert(pc),a5
  505.     lea    $72d10,a0
  506.     lea    40,a1
  507. filldraw:
  508.     move.w    (a2)+,d0
  509.     move.w    (a2)+,d1
  510.     move.w    (a2),d2
  511.     move.w    2(a2),d3    
  512.     sub.w    d4,d0
  513.     sub.w    d4,d2
  514.     sub.w    a5,d1
  515.     sub.w    a5,d3
  516.     cmp.w    d1,d3
  517.     beq    fillend
  518.     cmp.w    d1,d3
  519.     bge.s    nochange
  520.     exg    d1,d3
  521.     exg    d0,d2
  522. nochange:
  523.     move.w    d2,d5
  524.     move.w    d3,d6
  525.     sub.w    d0,d5
  526.     bpl.s    nomin
  527.     neg.w    d5
  528. nomin:
  529.     sub.w    d1,d6
  530.     asl.w    #1,d6
  531.     cmp.w    d5,d6
  532.     bgt.s    nomore
  533.     subq.w    #1,d3
  534. nomore:
  535.     bsr    linedraw
  536. fillend:
  537.     dbf    d7,filldraw
  538.  
  539.     move.w    xmaxwert(pc),d2
  540.     move.w    ymaxwert(pc),d3
  541.     sub.w    d4,d2
  542.     sub.w    a5,d3
  543.     addq.w    #1,d3
  544.     cmp.w    #2,d3
  545.     blt    allfend
  546.     moveq    #0,d1
  547.     lsr.w    #4,d2
  548.     addq.w    #1,d2
  549.     move.w    d2,d1
  550.     lsl.w    #1,d1
  551.     moveq    #40,d7
  552.     sub.w    d1,d7
  553.     move.w    d2,with
  554.     move.w    d3,high
  555.     move.w    d7,modu
  556.     lea    $dff000,a5
  557. blittfillwait:
  558.     btst    #14,2(a5)
  559.     bne.s    blittfillwait
  560.     move.l    #$ffffffff,$44(a5)
  561.     move.w    d7,$64(a5)
  562.     move.w    d7,$66(a5)
  563.     move.w    d3,d4
  564.     mulu    #40,d4
  565.     add.l    d1,d4
  566.     sub.l    #82,d4
  567.     add.l    #$72d10,d4
  568.     move.l    d4,$50(a5)
  569.     move.l    d4,$54(a5)
  570.     move.w    #%0000100111110000,$40(a5)
  571.     move.w    #%1010,$42(a5)
  572.     subq.w    #1,d3
  573.     lsl.w    #6,d3
  574.     or.w    d3,d2
  575.     move.w    d2,$58(a5)
  576. fillwait:
  577.     btst    #14,2(a5)
  578.     bne.s    fillwait
  579.     move.w    xminwert(pc),d0
  580.     move.w    yminwert(pc),d1
  581.     mulu    #40,d1
  582.     move.w    d0,d2
  583.     and.w    #$fff0,d0
  584.     lsr.w    #3,d0
  585.     add.w    d0,d1    
  586.  
  587.     add.l    workplane,d1
  588.  
  589.     and.w    #$f,d2
  590.     ror.w    #4,d2
  591.     move.w    with(pc),d3
  592.     move.w    high(pc),d4
  593.     addq.w    #1,d3
  594.     lsl.w    #6,d4
  595.     or.w    d4,d3    
  596.     move.w    modu,d0
  597.     subq.w    #2,d0
  598.     move.w    d0,$64(a5)
  599.     clr.w    $62(a5)
  600.     move.w    d0,$66(a5)
  601.     move.w    d0,$60(a5)
  602.     move.w    fcolor(pc),d6    
  603.     moveq    #3,d7
  604. fcopyloop:
  605.     move.l    d1,$54(a5)
  606.     move.l    d1,$48(a5)
  607.     move.l    #$72d10,$50(a5)
  608.     btst    #0,d6
  609.     beq.s    zeroplane    
  610.     move.w    #%101111111010,d0    
  611.     bra.s    zeroend
  612. zeroplane:
  613.     move.w    #%101100001010,d0    
  614. zeroend:
  615.     lsr.w    #1,d6
  616.     or.w    d2,d0
  617.     move.w    #0,$42(a5)
  618.     move.w    d0,$40(a5)
  619.     move.w    d3,$58(a5)
  620. copywait:
  621.     btst    #14,2(a5)
  622.     bne.s    copywait
  623.     add.l    #150*40,d1
  624.     dbf    d7,fcopyloop
  625.  
  626. allfend:
  627.  
  628.     movem.l    (a7)+,d0-d7/a2-a6
  629.     rts
  630.  
  631.  
  632.  
  633.  
  634. fcolor:
  635.     dc.w    0
  636.  
  637.  
  638. coordsanzahl:
  639.     dc.w    0
  640. high:
  641.     dc.w    200
  642. with:
  643.     dc.w    20
  644. modu:
  645.     dc.w    0
  646. xmaxwert:
  647.     dc.w    0
  648. xminwert:
  649.     dc.w    $7fff
  650. ymaxwert:
  651.     dc.w    0
  652. yminwert:
  653.     dc.w    $7fff
  654. fillcoordstable:
  655.     blk.w    400,0
  656.  
  657.  
  658.  
  659. ********************
  660. *** 3-D Rotieren ***
  661. ********************
  662. ;d0,d1,d2   x,y,z
  663. ;a0,a1,a2   umx,umy,umz
  664.  
  665. rotate:
  666.     movem.l    d3-d7/a3-a6,-(a7)
  667.     lea    costable(pc),a3
  668.     lea    sintable(pc),a4
  669.     move.w    d0,d4
  670.     move.w    d1,d5
  671.     muls    (a3,a2.w),d4
  672.     muls    (a4,a2.w),d5
  673.     asr.l    #8,d4
  674.     asr.l    #8,d5
  675.     asr.l    #7,d4
  676.     asr.l    #7,d5
  677.     sub.w    d5,d4
  678.     move.w    d4,d6
  679.     move.w    d0,d4
  680.     move.w    d1,d5
  681.     muls    (a4,a2.w),d4
  682.     muls    (a3,a2.w),d5
  683.     asr.l    #8,d4
  684.     asr.l    #8,d5
  685.     asr.l    #7,d4
  686.     asr.l    #7,d5
  687.     add.w    d4,d5
  688.     move.w    d5,d1
  689.     move.w    d6,d0
  690. rot_1:
  691.     move.w    d2,d5
  692.     move.w    d1,d4
  693.     muls    (a3,a0.w),d4
  694.     muls    (a4,a0.w),d5
  695.     asr.l    #8,d4
  696.     asr.l    #8,d5
  697.     asr.l    #7,d4
  698.     asr.l    #7,d5
  699.     sub.w    d5,d4
  700.     move.w    d4,d6
  701.     move.w    d1,d4
  702.     move.w    d2,d5
  703.     muls    (a4,a0.w),d4
  704.     muls    (a3,a0.w),d5
  705.     asr.l    #8,d4
  706.     asr.l    #8,d5
  707.     asr.l    #7,d4
  708.     asr.l    #7,d5
  709.     add.w    d4,d5
  710.     move.w    d5,d1
  711.     move.w    d6,d2
  712. rot_2:
  713.     move.w    d0,d4
  714.     move.w    d2,d5
  715.     muls    (a3,a1.w),d4
  716.     muls    (a4,a1.w),d5
  717.     asr.l    #8,d4
  718.     asr.l    #8,d5
  719.     asr.l    #7,d4
  720.     asr.l    #7,d5
  721.     add.w    d5,d4
  722.     move.w    d4,d6
  723.     move.w    d0,d4
  724.     move.w    d2,d5
  725.     neg.w    d4
  726.     muls    (a4,a1.w),d4
  727.     muls    (a3,a1.w),d5
  728.     asr.l    #8,d4
  729.     asr.l    #8,d5
  730.     asr.l    #7,d4
  731.     asr.l    #7,d5
  732.     add.w    d4,d5
  733.     move.w    d5,d2
  734.     move.w    d6,d0
  735. rot_end:
  736.     movem.l    (a7)+,d3-d7/a3-a6
  737.     rts
  738.  
  739.  
  740. ***********************
  741. **** Blitterlinien ****
  742. ***********************
  743. ;a1 Breite   a0 ADR
  744.  
  745. linedraw:
  746.     movem.l    d4-d7/a2-a6,-(a7)
  747.     cmp.w    d0,d2
  748.     bne.s    li_weiter
  749.     cmp.w    d1,d3
  750.     beq    li_end
  751. li_weiter:
  752.     cmp.w    #0,d0
  753.     blt    li_end
  754.     cmp.w    #0,d1
  755.     blt    li_end
  756.     cmp.w    #0,d2
  757.     blt    li_end
  758.     cmp.w    #0,d3
  759.     blt    li_end
  760.     lea    $dff000,a5
  761.     move.l    a1,d4
  762.     mulu    d1,d4
  763.     move.w    #$fff0,d5
  764.     and.w    d0,d5
  765.     lsr.w    #3,d5
  766.     add.w    d5,d4
  767.     add.l    a0,d4
  768.     moveq    #0,d5
  769.     sub.w    d1,d3
  770.     roxl.b    #1,d5
  771.     tst.w    d3
  772.     bge.s    li_y2gy1
  773.     neg.w    d3
  774. li_y2gy1:
  775.     sub.w    d0,d2
  776.     roxl.b    #1,d5
  777.     tst.w    d2
  778.     bge.s    li_x2gx1
  779.     neg.w    d2
  780. li_x2gx1:
  781.     move.w    d3,d1
  782.     sub.w    d2,d1
  783.     bge.s    li_dygdx
  784.     exg    d2,d3
  785. li_dygdx:
  786.     roxl.b    #1,d5
  787.     move.b    li_okttable(pc,d5),d5
  788.     add.w    d2,d2
  789. li_wait:
  790.     btst    #14,2(a5)
  791.     bne.s    li_wait    
  792.     move.w    d2,$62(a5)
  793.     sub.w    d3,d2
  794.     bge.s    li_signnl
  795.     or.b    #$40,d5
  796. li_signnl:
  797.  
  798.     move.w    d2,$52(a5)
  799.     sub.w    d3,d2
  800.     move.w    d2,$64(a5)
  801.     move.w    #$8000,$74(a5)
  802.     move.w    #$ffff,$72(a5)
  803.     move.w    #$ffff,$44(a5)
  804.     and.w    #$f,d0
  805.     ror.w    #4,d0
  806.     or.w    d0,d5
  807.     or.w    #$0b4a,d0
  808.  
  809.     move.w    d0,$40(a5)
  810.     move.w    d5,$42(a5)
  811.     move.l    d4,$48(a5)
  812.     move.l    d4,$54(a5)
  813.     move.l    d4,$4c(a5)
  814.     move.w    a1,$60(a5)
  815.     move.w    a1,$66(a5)
  816.     lsl.w    #6,d3
  817.     addq.w    #2,d3
  818.     move.w    d3,$58(a5)
  819.  
  820. li_end:            
  821.     movem.l    (a7)+,d4-d7/a2-a6
  822.     rts
  823. li_okttable:
  824.     dc.b    0*4+3
  825.     dc.b    4*4+3
  826.     dc.b    2*4+3
  827.     dc.b    5*4+3
  828.     dc.b    1*4+3
  829.     dc.b    6*4+3
  830.     dc.b    3*4+3
  831.     dc.b    7*4+3
  832. li_point:
  833.     move.w    a1,d5
  834.     mulu    d5,d1
  835.     and.l    #$fff8,d0
  836.     lsr.w    #3,d0
  837.     add.l    d0,d1
  838.     add.l    d1,a0
  839.     and.l    #$7,d2
  840.     moveq    #7,d5
  841.     sub.l    d2,d5
  842.     btst    d5,(a0)
  843.     beq.s    setit3
  844.     bclr    d5,(a0)
  845.     bra.s    esetend
  846. setit3:
  847.     bset    d5,(a0)
  848. esetend:
  849.     bra    li_end
  850.  
  851.  
  852.  
  853.  
  854. ***************
  855. *** E N D E ***
  856. ***************
  857.  
  858.  
  859. end:        
  860.         lea    $dff000,a5
  861.         move.l    4,a6
  862.         lea    grname(pc),a1
  863.         clr.l    d0
  864.         jsr    -408(a6)
  865.         move.l    d0,a4
  866.         move.l    38(a4),$80(a5)
  867.         clr.w    $88(a5)
  868.         move.w    #$83f0,$96(a5)
  869.         jmp    oson
  870.         
  871.  
  872.  
  873. copperlist:
  874.         dc.w    $9c,$8010
  875.                 dc.w    $008e,$2981,$0090,$29c1
  876.         dc.w    $0092,$0038,$0094,$00d0
  877.          dc.w    $0108,$0000,$010a,$0000
  878.              dc.w    $0102,$0000,$0104,$0000
  879.         dc.w    $120,$0,$122,$0
  880.         dc.w    $124,$0,$126,$0
  881.         dc.w    $128,$0,$12a,$0
  882.         dc.w    $12c,$0,$12e,$0
  883.         dc.w    $130,$0,$132,$0
  884.         dc.w    $134,$0,$136,$0
  885.         dc.w    $138,$0,$13a,$0
  886.         dc.w    $13c,$0,$13e,$0
  887.         dc.w    $182,$0
  888.         dc.w    $182,$fff
  889.         dc.w    $184,$f
  890.         dc.w    $186,$f0
  891.         dc.w    $188,$ccc
  892.         dc.w    $18a,$bbb
  893.         dc.w    $18c,$aaa
  894.         dc.w    $18e,$ddd
  895.         dc.w    $190,$0
  896.         dc.w    $192,$fff
  897.         dc.w    $194,$f
  898.         dc.w    $196,$f0
  899.         dc.w    $198,$ccc
  900.         dc.w    $19a,$bbb
  901.         dc.w    $19c,$aaa
  902.         dc.w    $19e,$ddd
  903.         dc.w    $100,$0200
  904.  
  905.         dc.w    $6209,$fffe
  906. planeadrs:
  907.         dc.w    $e0,$7,$e2,$0
  908.         dc.w    $e4,$7,$e6,$1f40
  909.         dc.w    $e8,$7,$ea,$3e80
  910.         dc.w    $ec,$7,$ee,$3e80
  911.         dc.w    $100,$4200
  912.  
  913.         dc.w    $f509,$fffe
  914.         dc.w    $100,$0200
  915.         dc.w    $ffe1,$fffe
  916.         dc.w    $ffff,$fffe
  917.  
  918.  
  919.  
  920.  
  921.  
  922.  
  923.  
  924. costable:
  925.  
  926.  
  927.     dc.w    32767,32767,32767,32767,32766,32766,32766,32765
  928.     dc.w    32765,32764,32763,32762,32761,32760,32759,32758
  929.     dc.w    32757,32756,32755,32753,32752,32750,32748,32747
  930.     dc.w    32745,32743,32741,32739,32737,32735,32732,32730
  931.     dc.w    32728,32725,32722,32720,32717,32714,32711,32708
  932.     dc.w    32705,32702,32699,32696,32692,32689,32685,32682
  933.     dc.w    32678,32674,32671,32667,32663,32659,32655,32650
  934.     dc.w    32646,32642,32637,32633,32628,32624,32619,32614
  935.     dc.w    32609,32604,32599,32594,32589,32584,32578,32573
  936.     dc.w    32567,32562,32556,32550,32545,32539,32533,32527
  937.     dc.w    32521,32514,32508,32502,32495,32489,32482,32476
  938.     dc.w    32469,32462,32455,32448,32441,32434,32427,32420
  939.     dc.w    32412,32405,32397,32390,32382,32375,32367,32359
  940.     dc.w    32351,32343,32335,32327,32318,32310,32302,32293
  941.     dc.w    32285,32276,32267,32258,32250,32241,32232,32223
  942.     dc.w    32213,32204,32195,32185,32176,32166,32157,32147
  943.     dc.w    32137,32128,32118,32108,32098,32087,32077,32067
  944.     dc.w    32057,32046,32036,32025,32014,32004,31993,31982
  945.     dc.w    31971,31960,31949,31937,31926,31915,31903,31892
  946.     dc.w    31880,31869,31857,31845,31833,31821,31809,31797
  947.     dc.w    31785,31773,31760,31748,31736,31723,31710,31698
  948.     dc.w    31685,31672,31659,31646,31633,31620,31607,31593
  949.     dc.w    31580,31567,31553,31539,31526,31512,31498,31484
  950.     dc.w    31470,31456,31442,31428,31414,31399,31385,31371
  951.     dc.w    31356,31341,31327,31312,31297,31282,31267,31252
  952.     dc.w    31237,31222,31206,31191,31176,31160,31145,31129
  953.     dc.w    31113,31097,31082,31066,31050,31033,31017,31001
  954.     dc.w    30985,30968,30952,30935,30919,30902,30885,30868
  955.     dc.w    30852,30835,30818,30800,30783,30766,30749,30731
  956.     dc.w    30714,30696,30679,30661,30643,30625,30607,30589
  957.     dc.w    30571,30553,30535,30517,30498,30480,30462,30443
  958.     dc.w    30424,30406,30387,30368,30349,30330,30311,30292
  959.     dc.w    30273,30253,30234,30215,30195,30176,30156,30136
  960.     dc.w    30117,30097,30077,30057,30037,30017,29996,29976
  961.     dc.w    29956,29935,29915,29894,29874,29853,29832,29812
  962.     dc.w    29791,29770,29749,29728,29706,29685,29664,29642
  963.     dc.w    29621,29599,29578,29556,29534,29513,29491,29469
  964.     dc.w    29447,29425,29403,29380,29358,29336,29313,29291
  965.     dc.w    29268,29246,29223,29200,29177,29154,29131,29108
  966.     dc.w    29085,29062,29039,29016,28992,28969,28945,28922
  967.     dc.w    28898,28874,28850,28827,28803,28779,28755,28730
  968.     dc.w    28706,28682,28658,28633,28609,28584,28560,28535
  969.     dc.w    28510,28485,28460,28435,28410,28385,28360,28335
  970.     dc.w    28310,28284,28259,28234,28208,28182,28157,28131
  971.     dc.w    28105,28079,28053,28027,28001,27975,27949,27923
  972.     dc.w    27896,27870,27843,27817,27790,27764,27737,27710
  973.     dc.w    27683,27656,27629,27602,27575,27548,27521,27493
  974.     dc.w    27466,27439,27411,27384,27356,27328,27300,27273
  975.     dc.w    27245,27217,27189,27161,27133,27104,27076,27048
  976.     dc.w    27019,26991,26962,26934,26905,26876,26848,26819
  977.     dc.w    26790,26761,26732,26703,26673,26644,26615,26586
  978.     dc.w    26556,26527,26497,26468,26438,26408,26378,26349
  979.     dc.w    26319,26289,26259,26229,26198,26168,26138,26108
  980.     dc.w    26077,26047,26016,25986,25955,25924,25893,25863
  981.     dc.w    25832,25801,25770,25739,25708,25676,25645,25614
  982.     dc.w    25582,25551,25519,25488,25456,25425,25393,25361
  983.     dc.w    25329,25297,25265,25233,25201,25169,25137,25105
  984.     dc.w    25072,25040,25007,24975,24942,24910,24877,24844
  985.     dc.w    24811,24779,24746,24713,24680,24647,24613,24580
  986.     dc.w    24547,24514,24480,24447,24413,24380,24346,24312
  987.     dc.w    24279,24245,24211,24177,24143,24109,24075,24041
  988.     dc.w    24007,23973,23938,23904,23870,23835,23801,23766
  989.     dc.w    23731,23697,23662,23627,23592,23557,23522,23487
  990.     dc.w    23452,23417,23382,23347,23311,23276,23241,23205
  991.     dc.w    23170,23134,23099,23063,23027,22991,22955,22920
  992.     dc.w    22884,22848,22812,22775,22739,22703,22667,22630
  993.     dc.w    22594,22558,22521,22485,22448,22411,22375,22338
  994.     dc.w    22301,22264,22227,22190,22153,22116,22079,22042
  995.     dc.w    22005,21968,21930,21893,21856,21818,21781,21743
  996.     dc.w    21705,21668,21630,21592,21554,21516,21478,21440
  997.     dc.w    21402,21364,21326,21288,21250,21212,21173,21135
  998.     dc.w    21096,21058,21019,20981,20942,20903,20865,20826
  999.     dc.w    20787,20748,20709,20670,20631,20592,20553,20514
  1000.     dc.w    20475,20435,20396,20357,20317,20278,20238,20199
  1001.     dc.w    20159,20120,20080,20040,20000,19961,19921,19881
  1002.     dc.w    19841,19801,19761,19720,19680,19640,19600,19560
  1003.     dc.w    19519,19479,19438,19398,19357,19317,19276,19235
  1004.     dc.w    19195,19154,19113,19072,19031,18991,18950,18909
  1005.     dc.w    18867,18826,18785,18744,18703,18661,18620,18579
  1006.     dc.w    18537,18496,18454,18413,18371,18329,18288,18246
  1007.     dc.w    18204,18162,18121,18079,18037,17995,17953,17911
  1008.     dc.w    17869,17826,17784,17742,17700,17657,17615,17573
  1009.     dc.w    17530,17488,17445,17403,17360,17317,17275,17232
  1010.     dc.w    17189,17146,17103,17061,17018,16975,16932,16889
  1011.     dc.w    16846,16802,16759,16716,16673,16629,16586,16543
  1012.     dc.w    16499,16456,16412,16369,16325,16282,16238,16194
  1013.     dc.w    16151,16107,16063,16019,15975,15932,15888,15844
  1014.     dc.w    15800,15756,15711,15667,15623,15579,15535,15490
  1015.     dc.w    15446,15402,15357,15313,15269,15224,15180,15135
  1016.     dc.w    15090,15046,15001,14956,14912,14867,14822,14777
  1017.     dc.w    14732,14687,14642,14597,14552,14507,14462,14417
  1018.     dc.w    14372,14327,14282,14236,14191,14146,14100,14055
  1019.     dc.w    14010,13964,13919,13873,13828,13782,13736,13691
  1020.     dc.w    13645,13599,13554,13508,13462,13416,13370,13324
  1021.     dc.w    13278,13232,13186,13140,13094,13048,13002,12956
  1022.     dc.w    12910,12864,12817,12771,12725,12678,12632,12586
  1023.     dc.w    12539,12493,12446,12400,12353,12307,12260,12214
  1024.     dc.w    12167,12120,12073,12027,11980,11933,11886,11839
  1025.     dc.w    11793,11746,11699,11652,11605,11558,11511,11464
  1026.     dc.w    11417,11369,11322,11275,11228,11181,11133,11086
  1027.     dc.w    11039,10991,10944,10897,10849,10802,10754,10707
  1028.     dc.w    10659,10612,10564,10517,10469,10421,10374,10326
  1029.     dc.w    10278,10231,10183,10135,10087,10039,9992,9944
  1030.     dc.w    9896,9848,9800,9752,9704,9656,9608,9560
  1031.     dc.w    9512,9464,9415,9367,9319,9271,9223,9174
  1032.     dc.w    9126,9078,9030,8981,8933,8884,8836,8788
  1033.     dc.w    8739,8691,8642,8594,8545,8497,8448,8400
  1034.     dc.w    8351,8302,8254,8205,8156,8108,8059,8010
  1035.     dc.w    7962,7913,7864,7815,7766,7718,7669,7620
  1036.     dc.w    7571,7522,7473,7424,7375,7326,7277,7228
  1037.     dc.w    7179,7130,7081,7032,6983,6934,6885,6835
  1038.     dc.w    6786,6737,6688,6639,6589,6540,6491,6442
  1039.     dc.w    6392,6343,6294,6244,6195,6146,6096,6047
  1040.     dc.w    5998,5948,5899,5849,5800,5750,5701,5651
  1041.     dc.w    5602,5552,5503,5453,5404,5354,5304,5255
  1042.     dc.w    5205,5156,5106,5056,5007,4957,4907,4858
  1043.     dc.w    4808,4758,4708,4659,4609,4559,4509,4459
  1044.     dc.w    4410,4360,4310,4260,4210,4161,4111,4061
  1045.     dc.w    4011,3961,3911,3861,3811,3761,3711,3661
  1046.     dc.w    3612,3562,3512,3462,3412,3362,3312,3262
  1047.     dc.w    3212,3162,3112,3061,3011,2961,2911,2861
  1048.     dc.w    2811,2761,2711,2661,2611,2561,2511,2460
  1049.     dc.w    2410,2360,2310,2260,2210,2160,2109,2059
  1050.     dc.w    2009,1959,1909,1859,1808,1758,1708,1658
  1051.     dc.w    1608,1557,1507,1457,1407,1357,1306,1256
  1052.     dc.w    1206,1156,1105,1055,1005,955,904,854
  1053.     dc.w    804,754,703,653,603,553,502,452
  1054.     dc.w    402,352,301,251,201,151,100,50
  1055.     dc.w    0,-49,-100,-150,-200,-250,-301,-351
  1056.     dc.w    -401,-452,-502,-552,-602,-653,-703,-753
  1057.     dc.w    -803,-854,-904,-954,-1004,-1055,-1105,-1155
  1058.     dc.w    -1205,-1255,-1306,-1356,-1406,-1456,-1507,-1557
  1059.     dc.w    -1607,-1657,-1707,-1758,-1808,-1858,-1908,-1958
  1060.     dc.w    -2008,-2059,-2109,-2159,-2209,-2259,-2309,-2360
  1061.     dc.w    -2410,-2460,-2510,-2560,-2610,-2660,-2710,-2760
  1062.     dc.w    -2810,-2861,-2911,-2961,-3011,-3061,-3111,-3161
  1063.     dc.w    -3211,-3261,-3311,-3361,-3411,-3461,-3511,-3561
  1064.     dc.w    -3611,-3661,-3711,-3761,-3811,-3860,-3910,-3960
  1065.     dc.w    -4010,-4060,-4110,-4160,-4210,-4259,-4309,-4359
  1066.     dc.w    -4409,-4459,-4509,-4558,-4608,-4658,-4708,-4757
  1067.     dc.w    -4807,-4857,-4906,-4956,-5006,-5056,-5105,-5155
  1068.     dc.w    -5204,-5254,-5304,-5353,-5403,-5452,-5502,-5552
  1069.     dc.w    -5601,-5651,-5700,-5750,-5799,-5849,-5898,-5947
  1070.     dc.w    -5997,-6046,-6096,-6145,-6194,-6244,-6293,-6342
  1071.     dc.w    -6392,-6441,-6490,-6540,-6589,-6638,-6687,-6736
  1072.     dc.w    -6786,-6835,-6884,-6933,-6982,-7031,-7080,-7129
  1073.     dc.w    -7178,-7227,-7277,-7326,-7374,-7423,-7472,-7521
  1074.     dc.w    -7570,-7619,-7668,-7717,-7766,-7815,-7863,-7912
  1075.     dc.w    -7961,-8010,-8058,-8107,-8156,-8204,-8253,-8302
  1076.     dc.w    -8350,-8399,-8448,-8496,-8545,-8593,-8642,-8690
  1077.     dc.w    -8739,-8787,-8835,-8884,-8932,-8981,-9029,-9077
  1078.     dc.w    -9125,-9174,-9222,-9270,-9318,-9367,-9415,-9463
  1079.     dc.w    -9511,-9559,-9607,-9655,-9703,-9751,-9799,-9847
  1080.     dc.w    -9895,-9943,-9991,-10039,-10086,-10134,-10182,-10230
  1081.     dc.w    -10278,-10325,-10373,-10421,-10468,-10516,-10564,-10611
  1082.     dc.w    -10659,-10706,-10754,-10801,-10849,-10896,-10943,-10991
  1083.     dc.w    -11038,-11085,-11133,-11180,-11227,-11274,-11322,-11369
  1084.     dc.w    -11416,-11463,-11510,-11557,-11604,-11651,-11698,-11745
  1085.     dc.w    -11792,-11839,-11886,-11932,-11979,-12026,-12073,-12119
  1086.     dc.w    -12166,-12213,-12259,-12306,-12353,-12399,-12446,-12492
  1087.     dc.w    -12539,-12585,-12631,-12678,-12724,-12770,-12817,-12863
  1088.     dc.w    -12909,-12955,-13001,-13048,-13094,-13140,-13186,-13232
  1089.     dc.w    -13278,-13324,-13370,-13415,-13461,-13507,-13553,-13599
  1090.     dc.w    -13644,-13690,-13736,-13781,-13827,-13872,-13918,-13963
  1091.     dc.w    -14009,-14054,-14100,-14145,-14190,-14236,-14281,-14326
  1092.     dc.w    -14371,-14416,-14462,-14507,-14552,-14597,-14642,-14687
  1093.     dc.w    -14732,-14776,-14821,-14866,-14911,-14956,-15000,-15045
  1094.     dc.w    -15090,-15134,-15179,-15223,-15268,-15312,-15357,-15401
  1095.     dc.w    -15445,-15490,-15534,-15578,-15622,-15667,-15711,-15755
  1096.     dc.w    -15799,-15843,-15887,-15931,-15975,-16019,-16062,-16106
  1097.     dc.w    -16150,-16194,-16237,-16281,-16325,-16368,-16412,-16455
  1098.     dc.w    -16499,-16542,-16585,-16629,-16672,-16715,-16758,-16802
  1099.     dc.w    -16845,-16888,-16931,-16974,-17017,-17060,-17103,-17146
  1100.     dc.w    -17188,-17231,-17274,-17317,-17359,-17402,-17444,-17487
  1101.     dc.w    -17529,-17572,-17614,-17657,-17699,-17741,-17783,-17826
  1102.     dc.w    -17868,-17910,-17952,-17994,-18036,-18078,-18120,-18162
  1103.     dc.w    -18204,-18245,-18287,-18329,-18370,-18412,-18454,-18495
  1104.     dc.w    -18537,-18578,-18619,-18661,-18702,-18743,-18784,-18826
  1105.     dc.w    -18867,-18908,-18949,-18990,-19031,-19072,-19112,-19153
  1106.     dc.w    -19194,-19235,-19275,-19316,-19357,-19397,-19438,-19478
  1107.     dc.w    -19518,-19559,-19599,-19639,-19680,-19720,-19760,-19800
  1108.     dc.w    -19840,-19880,-19920,-19960,-20000,-20039,-20079,-20119
  1109.     dc.w    -20158,-20198,-20238,-20277,-20317,-20356,-20395,-20435
  1110.     dc.w    -20474,-20513,-20552,-20591,-20631,-20670,-20709,-20747
  1111.     dc.w    -20786,-20825,-20864,-20903,-20941,-20980,-21019,-21057
  1112.     dc.w    -21096,-21134,-21172,-21211,-21249,-21287,-21325,-21364
  1113.     dc.w    -21402,-21440,-21478,-21516,-21554,-21591,-21629,-21667
  1114.     dc.w    -21705,-21742,-21780,-21817,-21855,-21892,-21930,-21967
  1115.     dc.w    -22004,-22041,-22079,-22116,-22153,-22190,-22227,-22264
  1116.     dc.w    -22300,-22337,-22374,-22411,-22447,-22484,-22520,-22557
  1117.     dc.w    -22593,-22630,-22666,-22702,-22739,-22775,-22811,-22847
  1118.     dc.w    -22883,-22919,-22955,-22991,-23026,-23062,-23098,-23133
  1119.     dc.w    -23169,-23204,-23240,-23275,-23311,-23346,-23381,-23416
  1120.     dc.w    -23452,-23487,-23522,-23557,-23591,-23626,-23661,-23696
  1121.     dc.w    -23731,-23765,-23800,-23834,-23869,-23903,-23938,-23972
  1122.     dc.w    -24006,-24040,-24074,-24108,-24142,-24176,-24210,-24244
  1123.     dc.w    -24278,-24312,-24345,-24379,-24412,-24446,-24479,-24513
  1124.     dc.w    -24546,-24579,-24613,-24646,-24679,-24712,-24745,-24778
  1125.     dc.w    -24811,-24843,-24876,-24909,-24941,-24974,-25007,-25039
  1126.     dc.w    -25071,-25104,-25136,-25168,-25200,-25232,-25264,-25296
  1127.     dc.w    -25328,-25360,-25392,-25424,-25455,-25487,-25519,-25550
  1128.     dc.w    -25582,-25613,-25644,-25676,-25707,-25738,-25769,-25800
  1129.     dc.w    -25831,-25862,-25893,-25923,-25954,-25985,-26015,-26046
  1130.     dc.w    -26076,-26107,-26137,-26167,-26198,-26228,-26258,-26288
  1131.     dc.w    -26318,-26348,-26378,-26407,-26437,-26467,-26496,-26526
  1132.     dc.w    -26555,-26585,-26614,-26643,-26673,-26702,-26731,-26760
  1133.     dc.w    -26789,-26818,-26847,-26875,-26904,-26933,-26961,-26990
  1134.     dc.w    -27018,-27047,-27075,-27103,-27132,-27160,-27188,-27216
  1135.     dc.w    -27244,-27272,-27300,-27327,-27355,-27383,-27410,-27438
  1136.     dc.w    -27465,-27493,-27520,-27547,-27574,-27601,-27629,-27656
  1137.     dc.w    -27682,-27709,-27736,-27763,-27789,-27816,-27843,-27869
  1138.     dc.w    -27895,-27922,-27948,-27974,-28000,-28026,-28053,-28078
  1139.     dc.w    -28104,-28130,-28156,-28182,-28207,-28233,-28258,-28284
  1140.     dc.w    -28309,-28334,-28359,-28385,-28410,-28435,-28460,-28484
  1141.     dc.w    -28509,-28534,-28559,-28583,-28608,-28632,-28657,-28681
  1142.     dc.w    -28705,-28730,-28754,-28778,-28802,-28826,-28850,-28873
  1143.     dc.w    -28897,-28921,-28944,-28968,-28991,-29015,-29038,-29061
  1144.     dc.w    -29084,-29108,-29131,-29154,-29176,-29199,-29222,-29245
  1145.     dc.w    -29267,-29290,-29312,-29335,-29357,-29380,-29402,-29424
  1146.     dc.w    -29446,-29468,-29490,-29512,-29534,-29555,-29577,-29599
  1147.     dc.w    -29620,-29642,-29663,-29684,-29706,-29727,-29748,-29769
  1148.     dc.w    -29790,-29811,-29832,-29852,-29873,-29894,-29914,-29935
  1149.     dc.w    -29955,-29975,-29996,-30016,-30036,-30056,-30076,-30096
  1150.     dc.w    -30116,-30135,-30155,-30175,-30194,-30214,-30233,-30253
  1151.     dc.w    -30272,-30291,-30310,-30329,-30348,-30367,-30386,-30405
  1152.     dc.w    -30423,-30442,-30461,-30479,-30498,-30516,-30534,-30552
  1153.     dc.w    -30570,-30589,-30607,-30624,-30642,-30660,-30678,-30695
  1154.     dc.w    -30713,-30730,-30748,-30765,-30782,-30800,-30817,-30834
  1155.     dc.w    -30851,-30868,-30884,-30901,-30918,-30934,-30951,-30967
  1156.     dc.w    -30984,-31000,-31016,-31033,-31049,-31065,-31081,-31096
  1157.     dc.w    -31112,-31128,-31144,-31159,-31175,-31190,-31206,-31221
  1158.     dc.w    -31236,-31251,-31266,-31281,-31296,-31311,-31326,-31341
  1159.     dc.w    -31355,-31370,-31384,-31399,-31413,-31427,-31441,-31455
  1160.     dc.w    -31469,-31483,-31497,-31511,-31525,-31539,-31552,-31566
  1161.     dc.w    -31579,-31592,-31606,-31619,-31632,-31645,-31658,-31671
  1162.     dc.w    -31684,-31697,-31709,-31722,-31735,-31747,-31760,-31772
  1163.     dc.w    -31784,-31796,-31808,-31820,-31832,-31844,-31856,-31868
  1164.     dc.w    -31879,-31891,-31902,-31914,-31925,-31937,-31948,-31959
  1165.     dc.w    -31970,-31981,-31992,-32003,-32013,-32024,-32035,-32045
  1166.     dc.w    -32056,-32066,-32076,-32086,-32097,-32107,-32117,-32127
  1167.     dc.w    -32136,-32146,-32156,-32166,-32175,-32185,-32194,-32203
  1168.     dc.w    -32212,-32222,-32231,-32240,-32249,-32258,-32266,-32275
  1169.     dc.w    -32284,-32292,-32301,-32309,-32317,-32326,-32334,-32342
  1170.     dc.w    -32350,-32358,-32366,-32374,-32381,-32389,-32396,-32404
  1171.     dc.w    -32411,-32419,-32426,-32433,-32440,-32447,-32454,-32461
  1172.     dc.w    -32468,-32475,-32481,-32488,-32494,-32501,-32507,-32513
  1173.     dc.w    -32520,-32526,-32532,-32538,-32544,-32549,-32555,-32561
  1174.     dc.w    -32566,-32572,-32577,-32583,-32588,-32593,-32598,-32603
  1175.     dc.w    -32608,-32613,-32618,-32623,-32627,-32632,-32636,-32641
  1176.     dc.w    -32645,-32649,-32654,-32658,-32662,-32666,-32670,-32674
  1177.     dc.w    -32677,-32681,-32684,-32688,-32691,-32695,-32698,-32701
  1178.     dc.w    -32704,-32707,-32710,-32713,-32716,-32719,-32721,-32724
  1179.     dc.w    -32727,-32729,-32731,-32734,-32736,-32738,-32740,-32742
  1180.     dc.w    -32744,-32746,-32747,-32749,-32751,-32752,-32754,-32755
  1181.     dc.w    -32756,-32757,-32758,-32759,-32760,-32761,-32762,-32763
  1182.     dc.w    -32764,-32764,-32765,-32765,-32765,-32766,-32766,-32766
  1183.     dc.w    -32766,-32766,-32766,-32766,-32765,-32765,-32765,-32764
  1184.     dc.w    -32764,-32763,-32762,-32761,-32760,-32759,-32758,-32757
  1185.     dc.w    -32756,-32755,-32753,-32752,-32751,-32749,-32747,-32746
  1186.     dc.w    -32744,-32742,-32740,-32738,-32736,-32734,-32731,-32729
  1187.     dc.w    -32727,-32724,-32721,-32719,-32716,-32713,-32710,-32707
  1188.     dc.w    -32704,-32701,-32698,-32695,-32691,-32688,-32684,-32681
  1189.     dc.w    -32677,-32673,-32670,-32666,-32662,-32658,-32654,-32649
  1190.     dc.w    -32645,-32641,-32636,-32632,-32627,-32623,-32618,-32613
  1191.     dc.w    -32608,-32603,-32598,-32593,-32588,-32583,-32577,-32572
  1192.     dc.w    -32566,-32561,-32555,-32549,-32544,-32538,-32532,-32526
  1193.     dc.w    -32520,-32513,-32507,-32501,-32494,-32488,-32481,-32475
  1194.     dc.w    -32468,-32461,-32454,-32447,-32440,-32433,-32426,-32419
  1195.     dc.w    -32411,-32404,-32396,-32389,-32381,-32373,-32366,-32358
  1196.     dc.w    -32350,-32342,-32334,-32326,-32317,-32309,-32301,-32292
  1197.     dc.w    -32284,-32275,-32266,-32257,-32249,-32240,-32231,-32222
  1198.     dc.w    -32212,-32203,-32194,-32184,-32175,-32165,-32156,-32146
  1199.     dc.w    -32136,-32126,-32117,-32107,-32096,-32086,-32076,-32066
  1200.     dc.w    -32055,-32045,-32034,-32024,-32013,-32002,-31992,-31981
  1201.     dc.w    -31970,-31959,-31948,-31936,-31925,-31914,-31902,-31891
  1202.     dc.w    -31879,-31868,-31856,-31844,-31832,-31820,-31808,-31796
  1203.     dc.w    -31784,-31772,-31759,-31747,-31734,-31722,-31709,-31697
  1204.     dc.w    -31684,-31671,-31658,-31645,-31632,-31619,-31606,-31592
  1205.     dc.w    -31579,-31566,-31552,-31538,-31525,-31511,-31497,-31483
  1206.     dc.w    -31469,-31455,-31441,-31427,-31413,-31398,-31384,-31370
  1207.     dc.w    -31355,-31340,-31326,-31311,-31296,-31281,-31266,-31251
  1208.     dc.w    -31236,-31221,-31205,-31190,-31175,-31159,-31143,-31128
  1209.     dc.w    -31112,-31096,-31080,-31064,-31048,-31032,-31016,-31000
  1210.     dc.w    -30984,-30967,-30951,-30934,-30918,-30901,-30884,-30867
  1211.     dc.w    -30850,-30834,-30816,-30799,-30782,-30765,-30748,-30730
  1212.     dc.w    -30713,-30695,-30677,-30660,-30642,-30624,-30606,-30588
  1213.     dc.w    -30570,-30552,-30534,-30516,-30497,-30479,-30460,-30442
  1214.     dc.w    -30423,-30405,-30386,-30367,-30348,-30329,-30310,-30291
  1215.     dc.w    -30272,-30252,-30233,-30214,-30194,-30175,-30155,-30135
  1216.     dc.w    -30115,-30096,-30076,-30056,-30036,-30016,-29995,-29975
  1217.     dc.w    -29955,-29934,-29914,-29893,-29873,-29852,-29831,-29810
  1218.     dc.w    -29790,-29769,-29748,-29726,-29705,-29684,-29663,-29641
  1219.     dc.w    -29620,-29598,-29577,-29555,-29533,-29512,-29490,-29468
  1220.     dc.w    -29446,-29424,-29401,-29379,-29357,-29335,-29312,-29290
  1221.     dc.w    -29267,-29245,-29222,-29199,-29176,-29153,-29130,-29107
  1222.     dc.w    -29084,-29061,-29038,-29014,-28991,-28968,-28944,-28920
  1223.     dc.w    -28897,-28873,-28849,-28825,-28801,-28777,-28753,-28729
  1224.     dc.w    -28705,-28681,-28656,-28632,-28608,-28583,-28558,-28534
  1225.     dc.w    -28509,-28484,-28459,-28434,-28409,-28384,-28359,-28334
  1226.     dc.w    -28309,-28283,-28258,-28232,-28207,-28181,-28156,-28130
  1227.     dc.w    -28104,-28078,-28052,-28026,-28000,-27974,-27948,-27922
  1228.     dc.w    -27895,-27869,-27842,-27816,-27789,-27763,-27736,-27709
  1229.     dc.w    -27682,-27655,-27628,-27601,-27574,-27547,-27520,-27492
  1230.     dc.w    -27465,-27437,-27410,-27382,-27355,-27327,-27299,-27271
  1231.     dc.w    -27244,-27216,-27188,-27160,-27131,-27103,-27075,-27047
  1232.     dc.w    -27018,-26990,-26961,-26933,-26904,-26875,-26846,-26818
  1233.     dc.w    -26789,-26760,-26731,-26701,-26672,-26643,-26614,-26584
  1234.     dc.w    -26555,-26526,-26496,-26466,-26437,-26407,-26377,-26347
  1235.     dc.w    -26317,-26287,-26257,-26227,-26197,-26167,-26137,-26106
  1236.     dc.w    -26076,-26046,-26015,-25984,-25954,-25923,-25892,-25861
  1237.     dc.w    -25831,-25800,-25769,-25737,-25706,-25675,-25644,-25613
  1238.     dc.w    -25581,-25550,-25518,-25487,-25455,-25423,-25392,-25360
  1239.     dc.w    -25328,-25296,-25264,-25232,-25200,-25168,-25136,-25103
  1240.     dc.w    -25071,-25039,-25006,-24974,-24941,-24908,-24876,-24843
  1241.     dc.w    -24810,-24777,-24744,-24711,-24678,-24645,-24612,-24579
  1242.     dc.w    -24546,-24512,-24479,-24446,-24412,-24379,-24345,-24311
  1243.     dc.w    -24278,-24244,-24210,-24176,-24142,-24108,-24074,-24040
  1244.     dc.w    -24006,-23971,-23937,-23903,-23868,-23834,-23799,-23765
  1245.     dc.w    -23730,-23695,-23661,-23626,-23591,-23556,-23521,-23486
  1246.     dc.w    -23451,-23416,-23381,-23346,-23310,-23275,-23239,-23204
  1247.     dc.w    -23169,-23133,-23097,-23062,-23026,-22990,-22954,-22918
  1248.     dc.w    -22882,-22846,-22810,-22774,-22738,-22702,-22666,-22629
  1249.     dc.w    -22593,-22556,-22520,-22483,-22447,-22410,-22374,-22337
  1250.     dc.w    -22300,-22263,-22226,-22189,-22152,-22115,-22078,-22041
  1251.     dc.w    -22004,-21966,-21929,-21892,-21854,-21817,-21779,-21742
  1252.     dc.w    -21704,-21666,-21629,-21591,-21553,-21515,-21477,-21439
  1253.     dc.w    -21401,-21363,-21325,-21287,-21249,-21210,-21172,-21134
  1254.     dc.w    -21095,-21057,-21018,-20980,-20941,-20902,-20863,-20825
  1255.     dc.w    -20786,-20747,-20708,-20669,-20630,-20591,-20552,-20513
  1256.     dc.w    -20473,-20434,-20395,-20356,-20316,-20277,-20237,-20198
  1257.     dc.w    -20158,-20118,-20079,-20039,-19999,-19959,-19919,-19879
  1258.     dc.w    -19839,-19799,-19759,-19719,-19679,-19639,-19599,-19558
  1259.     dc.w    -19518,-19478,-19437,-19397,-19356,-19316,-19275,-19234
  1260.     dc.w    -19194,-19153,-19112,-19071,-19030,-18989,-18948,-18907
  1261.     dc.w    -18866,-18825,-18784,-18743,-18701,-18660,-18619,-18577
  1262.     dc.w    -18536,-18495,-18453,-18411,-18370,-18328,-18287,-18245
  1263.     dc.w    -18203,-18161,-18119,-18077,-18036,-17994,-17952,-17909
  1264.     dc.w    -17867,-17825,-17783,-17741,-17698,-17656,-17614,-17571
  1265.     dc.w    -17529,-17486,-17444,-17401,-17359,-17316,-17273,-17231
  1266.     dc.w    -17188,-17145,-17102,-17059,-17016,-16973,-16930,-16887
  1267.     dc.w    -16844,-16801,-16758,-16715,-16671,-16628,-16585,-16542
  1268.     dc.w    -16498,-16455,-16411,-16368,-16324,-16280,-16237,-16193
  1269.     dc.w    -16149,-16106,-16062,-16018,-15974,-15930,-15886,-15842
  1270.     dc.w    -15798,-15754,-15710,-15666,-15622,-15578,-15533,-15489
  1271.     dc.w    -15445,-15401,-15356,-15312,-15267,-15223,-15178,-15134
  1272.     dc.w    -15089,-15044,-15000,-14955,-14910,-14866,-14821,-14776
  1273.     dc.w    -14731,-14686,-14641,-14596,-14551,-14506,-14461,-14416
  1274.     dc.w    -14371,-14326,-14280,-14235,-14190,-14145,-14099,-14054
  1275.     dc.w    -14008,-13963,-13917,-13872,-13826,-13781,-13735,-13689
  1276.     dc.w    -13644,-13598,-13552,-13507,-13461,-13415,-13369,-13323
  1277.     dc.w    -13277,-13231,-13185,-13139,-13093,-13047,-13001,-12955
  1278.     dc.w    -12909,-12862,-12816,-12770,-12724,-12677,-12631,-12584
  1279.     dc.w    -12538,-12492,-12445,-12399,-12352,-12305,-12259,-12212
  1280.     dc.w    -12166,-12119,-12072,-12025,-11979,-11932,-11885,-11838
  1281.     dc.w    -11791,-11744,-11697,-11651,-11603,-11556,-11509,-11462
  1282.     dc.w    -11415,-11368,-11321,-11274,-11227,-11179,-11132,-11085
  1283.     dc.w    -11037,-10990,-10943,-10895,-10848,-10801,-10753,-10706
  1284.     dc.w    -10658,-10610,-10563,-10515,-10468,-10420,-10372,-10325
  1285.     dc.w    -10277,-10229,-10181,-10134,-10086,-10038,-9990,-9942
  1286.     dc.w    -9894,-9847,-9799,-9751,-9703,-9655,-9607,-9558
  1287.     dc.w    -9510,-9462,-9414,-9366,-9318,-9270,-9221,-9173
  1288.     dc.w    -9125,-9077,-9028,-8980,-8932,-8883,-8835,-8786
  1289.     dc.w    -8738,-8690,-8641,-8593,-8544,-8495,-8447,-8398
  1290.     dc.w    -8350,-8301,-8253,-8204,-8155,-8107,-8058,-8009
  1291.     dc.w    -7960,-7912,-7863,-7814,-7765,-7716,-7667,-7619
  1292.     dc.w    -7570,-7521,-7472,-7423,-7374,-7325,-7276,-7227
  1293.     dc.w    -7178,-7129,-7080,-7031,-6982,-6932,-6883,-6834
  1294.     dc.w    -6785,-6736,-6687,-6637,-6588,-6539,-6490,-6440
  1295.     dc.w    -6391,-6342,-6292,-6243,-6194,-6144,-6095,-6046
  1296.     dc.w    -5996,-5947,-5897,-5848,-5798,-5749,-5700,-5650
  1297.     dc.w    -5600,-5551,-5501,-5452,-5402,-5353,-5303,-5253
  1298.     dc.w    -5204,-5154,-5105,-5055,-5005,-4956,-4906,-4856
  1299.     dc.w    -4806,-4757,-4707,-4657,-4607,-4558,-4508,-4458
  1300.     dc.w    -4408,-4359,-4309,-4259,-4209,-4159,-4109,-4059
  1301.     dc.w    -4010,-3960,-3910,-3860,-3810,-3760,-3710,-3660
  1302.     dc.w    -3610,-3560,-3510,-3460,-3410,-3360,-3310,-3260
  1303.     dc.w    -3210,-3160,-3110,-3060,-3010,-2960,-2910,-2860
  1304.     dc.w    -2810,-2760,-2710,-2660,-2609,-2559,-2509,-2459
  1305.     dc.w    -2409,-2359,-2309,-2259,-2209,-2158,-2108,-2058
  1306.     dc.w    -2008,-1958,-1908,-1857,-1807,-1757,-1707,-1657
  1307.     dc.w    -1606,-1556,-1506,-1456,-1406,-1355,-1305,-1255
  1308.     dc.w    -1205,-1154,-1104,-1054,-1004,-953,-903,-853
  1309.     dc.w    -803,-752,-702,-652,-602,-551,-501,-451
  1310.     dc.w    -401,-350,-300,-250,-200,-149,-99,-49
  1311.     dc.w    0,51,101,151,201,252,302,352
  1312.     dc.w    403,453,503,553,604,654,704,754
  1313.     dc.w    805,855,905,955,1006,1056,1106,1156
  1314.     dc.w    1207,1257,1307,1357,1407,1458,1508,1558
  1315.     dc.w    1608,1658,1709,1759,1809,1859,1909,1960
  1316.     dc.w    2010,2060,2110,2160,2210,2261,2311,2361
  1317.     dc.w    2411,2461,2511,2561,2611,2662,2712,2762
  1318.     dc.w    2812,2862,2912,2962,3012,3062,3112,3162
  1319.     dc.w    3212,3262,3312,3362,3412,3462,3512,3562
  1320.     dc.w    3612,3662,3712,3762,3812,3862,3912,3962
  1321.     dc.w    4011,4061,4111,4161,4211,4261,4311,4360
  1322.     dc.w    4410,4460,4510,4560,4609,4659,4709,4759
  1323.     dc.w    4808,4858,4908,4957,5007,5057,5106,5156
  1324.     dc.w    5206,5255,5305,5355,5404,5454,5503,5553
  1325.     dc.w    5602,5652,5701,5751,5800,5850,5899,5949
  1326.     dc.w    5998,6048,6097,6146,6196,6245,6294,6344
  1327.     dc.w    6393,6442,6492,6541,6590,6639,6689,6738
  1328.     dc.w    6787,6836,6885,6934,6983,7033,7082,7131
  1329.     dc.w    7180,7229,7278,7327,7376,7425,7474,7523
  1330.     dc.w    7572,7620,7669,7718,7767,7816,7865,7913
  1331.     dc.w    7962,8011,8060,8108,8157,8206,8254,8303
  1332.     dc.w    8352,8400,8449,8497,8546,8594,8643,8691
  1333.     dc.w    8740,8788,8837,8885,8933,8982,9030,9078
  1334.     dc.w    9127,9175,9223,9271,9320,9368,9416,9464
  1335.     dc.w    9512,9560,9608,9656,9704,9752,9800,9848
  1336.     dc.w    9896,9944,9992,10040,10088,10136,10183,10231
  1337.     dc.w    10279,10327,10374,10422,10470,10517,10565,10612
  1338.     dc.w    10660,10707,10755,10802,10850,10897,10945,10992
  1339.     dc.w    11039,11087,11134,11181,11228,11276,11323,11370
  1340.     dc.w    11417,11464,11511,11558,11605,11652,11699,11746
  1341.     dc.w    11793,11840,11887,11934,11980,12027,12074,12121
  1342.     dc.w    12167,12214,12261,12307,12354,12400,12447,12493
  1343.     dc.w    12540,12586,12633,12679,12725,12772,12818,12864
  1344.     dc.w    12910,12957,13003,13049,13095,13141,13187,13233
  1345.     dc.w    13279,13325,13371,13417,13463,13508,13554,13600
  1346.     dc.w    13646,13691,13737,13782,13828,13874,13919,13965
  1347.     dc.w    14010,14056,14101,14146,14192,14237,14282,14327
  1348.     dc.w    14373,14418,14463,14508,14553,14598,14643,14688
  1349.     dc.w    14733,14778,14823,14867,14912,14957,15002,15046
  1350.     dc.w    15091,15136,15180,15225,15269,15314,15358,15402
  1351.     dc.w    15447,15491,15535,15580,15624,15668,15712,15756
  1352.     dc.w    15800,15844,15888,15932,15976,16020,16064,16108
  1353.     dc.w    16151,16195,16239,16282,16326,16369,16413,16456
  1354.     dc.w    16500,16543,16587,16630,16673,16717,16760,16803
  1355.     dc.w    16846,16889,16932,16975,17018,17061,17104,17147
  1356.     dc.w    17190,17232,17275,17318,17360,17403,17446,17488
  1357.     dc.w    17531,17573,17616,17658,17700,17743,17785,17827
  1358.     dc.w    17869,17911,17953,17995,18037,18079,18121,18163
  1359.     dc.w    18205,18247,18288,18330,18372,18413,18455,18496
  1360.     dc.w    18538,18579,18621,18662,18703,18744,18786,18827
  1361.     dc.w    18868,18909,18950,18991,19032,19073,19114,19154
  1362.     dc.w    19195,19236,19277,19317,19358,19398,19439,19479
  1363.     dc.w    19520,19560,19600,19641,19681,19721,19761,19801
  1364.     dc.w    19841,19881,19921,19961,20001,20041,20080,20120
  1365.     dc.w    20160,20199,20239,20278,20318,20357,20397,20436
  1366.     dc.w    20475,20514,20554,20593,20632,20671,20710,20749
  1367.     dc.w    20788,20826,20865,20904,20943,20981,21020,21058
  1368.     dc.w    21097,21135,21174,21212,21250,21288,21327,21365
  1369.     dc.w    21403,21441,21479,21517,21555,21593,21630,21668
  1370.     dc.w    21706,21743,21781,21819,21856,21893,21931,21968
  1371.     dc.w    22005,22043,22080,22117,22154,22191,22228,22265
  1372.     dc.w    22302,22338,22375,22412,22449,22485,22522,22558
  1373.     dc.w    22595,22631,22667,22704,22740,22776,22812,22848
  1374.     dc.w    22884,22920,22956,22992,23028,23063,23099,23135
  1375.     dc.w    23170,23206,23241,23276,23312,23347,23382,23418
  1376.     dc.w    23453,23488,23523,23558,23593,23628,23662,23697
  1377.     dc.w    23732,23766,23801,23835,23870,23904,23939,23973
  1378.     dc.w    24007,24042,24076,24110,24144,24178,24212,24245
  1379.     dc.w    24279,24313,24346,24380,24414,24447,24481,24514
  1380.     dc.w    24547,24581,24614,24647,24680,24713,24746,24779
  1381.     dc.w    24812,24845,24877,24910,24943,24975,25008,25040
  1382.     dc.w    25073,25105,25137,25169,25202,25234,25266,25298
  1383.     dc.w    25330,25361,25393,25425,25457,25488,25520,25551
  1384.     dc.w    25583,25614,25645,25677,25708,25739,25770,25801
  1385.     dc.w    25832,25863,25894,25925,25955,25986,26017,26047
  1386.     dc.w    26077,26108,26138,26168,26199,26229,26259,26289
  1387.     dc.w    26319,26349,26379,26409,26438,26468,26497,26527
  1388.     dc.w    26556,26586,26615,26644,26674,26703,26732,26761
  1389.     dc.w    26790,26819,26848,26877,26905,26934,26963,26991
  1390.     dc.w    27020,27048,27076,27105,27133,27161,27189,27217
  1391.     dc.w    27245,27273,27301,27329,27356,27384,27412,27439
  1392.     dc.w    27466,27494,27521,27548,27576,27603,27630,27657
  1393.     dc.w    27684,27711,27737,27764,27791,27817,27844,27870
  1394.     dc.w    27897,27923,27949,27975,28002,28028,28054,28080
  1395.     dc.w    28105,28131,28157,28183,28208,28234,28259,28285
  1396.     dc.w    28310,28335,28361,28386,28411,28436,28461,28486
  1397.     dc.w    28511,28535,28560,28584,28609,28633,28658,28682
  1398.     dc.w    28706,28731,28755,28779,28803,28827,28851,28874
  1399.     dc.w    28898,28922,28945,28969,28992,29016,29039,29062
  1400.     dc.w    29086,29109,29132,29155,29178,29201,29223,29246
  1401.     dc.w    29269,29291,29314,29336,29358,29381,29403,29425
  1402.     dc.w    29447,29469,29491,29513,29535,29556,29578,29600
  1403.     dc.w    29621,29643,29664,29685,29707,29728,29749,29770
  1404.     dc.w    29791,29812,29833,29854,29874,29895,29915,29936
  1405.     dc.w    29956,29977,29997,30017,30037,30057,30077,30097
  1406.     dc.w    30117,30137,30156,30176,30195,30215,30234,30254
  1407.     dc.w    30273,30292,30311,30330,30349,30368,30387,30406
  1408.     dc.w    30425,30443,30462,30480,30499,30517,30535,30554
  1409.     dc.w    30572,30590,30608,30626,30643,30661,30679,30696
  1410.     dc.w    30714,30732,30749,30766,30783,30801,30818,30835
  1411.     dc.w    30852,30869,30886,30902,30919,30936,30952,30969
  1412.     dc.w    30985,31001,31017,31034,31050,31066,31082,31098
  1413.     dc.w    31113,31129,31145,31160,31176,31191,31207,31222
  1414.     dc.w    31237,31252,31267,31282,31297,31312,31327,31341
  1415.     dc.w    31356,31371,31385,31400,31414,31428,31442,31456
  1416.     dc.w    31470,31484,31499,31512,31526,31540,31553,31567
  1417.     dc.w    31580,31594,31607,31620,31633,31646,31659,31672
  1418.     dc.w    31685,31698,31711,31723,31736,31748,31761,31773
  1419.     dc.w    31785,31797,31809,31822,31833,31845,31857,31869
  1420.     dc.w    31880,31892,31903,31915,31926,31938,31949,31960
  1421.     dc.w    31971,31982,31993,32004,32014,32025,32036,32046
  1422.     dc.w    32057,32067,32077,32087,32098,32108,32118,32128
  1423.     dc.w    32137,32147,32157,32166,32176,32186,32195,32204
  1424.     dc.w    32213,32223,32232,32241,32250,32259,32267,32276
  1425.     dc.w    32285,32293,32302,32310,32318,32327,32335,32343
  1426.     dc.w    32351,32359,32367,32375,32382,32390,32398,32405
  1427.     dc.w    32413,32420,32427,32434,32441,32448,32455,32462
  1428.     dc.w    32469,32476,32482,32489,32495,32502,32508,32514
  1429.     dc.w    32520,32527,32533,32539,32545,32550,32556,32562
  1430.     dc.w    32567,32573,32578,32584,32589,32594,32599,32604
  1431.     dc.w    32609,32614,32619,32624,32628,32633,32637,32642
  1432.     dc.w    32646,32650,32655,32659,32663,32667,32670,32675
  1433.     dc.w    32678,32682,32685,32689,32693,32696,32699,32702
  1434.     dc.w    32705,32708,32711,32714,32717,32720,32722,32725
  1435.     dc.w    32728,32730,32732,32735,32737,32739,32741,32743
  1436.     dc.w    32745,32747,32748,32750,32751,32753,32754,32756
  1437.     dc.w    32757,32758,32760,32761,32761,32763,32763,32764
  1438.     dc.w    32765,32765,32766,32766,32767,32766,32767,32767
  1439.  
  1440.  
  1441.  
  1442.  
  1443.  
  1444. sintable:
  1445.     dc.w    0,51,101,151,201,252,302,352
  1446.     dc.w    403,453,503,553,604,654,704,754
  1447.     dc.w    805,855,905,955,1006,1056,1106,1156
  1448.     dc.w    1207,1257,1307,1357,1407,1458,1508,1558
  1449.     dc.w    1608,1658,1709,1759,1809,1859,1909,1960
  1450.     dc.w    2010,2060,2110,2160,2210,2261,2311,2361
  1451.     dc.w    2411,2461,2511,2561,2611,2662,2712,2762
  1452.     dc.w    2812,2862,2912,2962,3012,3062,3112,3162
  1453.     dc.w    3212,3262,3312,3362,3412,3462,3512,3562
  1454.     dc.w    3612,3662,3712,3762,3812,3862,3912,3962
  1455.     dc.w    4011,4061,4111,4161,4211,4261,4311,4360
  1456.     dc.w    4410,4460,4510,4560,4609,4659,4709,4759
  1457.     dc.w    4808,4858,4908,4957,5007,5057,5106,5156
  1458.     dc.w    5206,5255,5305,5355,5404,5454,5503,5553
  1459.     dc.w    5602,5652,5701,5751,5800,5850,5899,5949
  1460.     dc.w    5998,6048,6097,6146,6196,6245,6294,6344
  1461.     dc.w    6393,6442,6492,6541,6590,6639,6689,6738
  1462.     dc.w    6787,6836,6885,6934,6983,7033,7082,7131
  1463.     dc.w    7180,7229,7278,7327,7376,7425,7474,7523
  1464.     dc.w    7572,7620,7669,7718,7767,7816,7865,7913
  1465.     dc.w    7962,8011,8060,8108,8157,8206,8254,8303
  1466.     dc.w    8352,8400,8449,8497,8546,8594,8643,8691
  1467.     dc.w    8740,8788,8837,8885,8933,8982,9030,9078
  1468.     dc.w    9127,9175,9223,9271,9320,9368,9416,9464
  1469.     dc.w    9512,9560,9608,9656,9704,9752,9800,9848
  1470.     dc.w    9896,9944,9992,10040,10088,10136,10183,10231
  1471.     dc.w    10279,10327,10374,10422,10470,10517,10565,10612
  1472.     dc.w    10660,10707,10755,10802,10850,10897,10945,10992
  1473.     dc.w    11039,11087,11134,11181,11228,11276,11323,11370
  1474.     dc.w    11417,11464,11511,11558,11605,11652,11699,11746
  1475.     dc.w    11793,11840,11887,11934,11980,12027,12074,12121
  1476.     dc.w    12167,12214,12261,12307,12354,12400,12447,12493
  1477.     dc.w    12540,12586,12633,12679,12725,12772,12818,12864
  1478.     dc.w    12910,12957,13003,13049,13095,13141,13187,13233
  1479.     dc.w    13279,13325,13371,13417,13463,13508,13554,13600
  1480.     dc.w    13646,13691,13737,13782,13828,13874,13919,13965
  1481.     dc.w    14010,14056,14101,14146,14192,14237,14282,14327
  1482.     dc.w    14373,14418,14463,14508,14553,14598,14643,14688
  1483.     dc.w    14733,14778,14823,14867,14912,14957,15002,15046
  1484.     dc.w    15091,15136,15180,15225,15269,15314,15358,15402
  1485.     dc.w    15447,15491,15535,15580,15624,15668,15712,15756
  1486.     dc.w    15800,15844,15888,15932,15976,16020,16064,16108
  1487.     dc.w    16151,16195,16239,16282,16326,16369,16413,16456
  1488.     dc.w    16500,16543,16587,16630,16673,16717,16760,16803
  1489.     dc.w    16846,16889,16932,16975,17018,17061,17104,17147
  1490.     dc.w    17190,17232,17275,17318,17360,17403,17446,17488
  1491.     dc.w    17531,17573,17616,17658,17700,17743,17785,17827
  1492.     dc.w    17869,17911,17953,17995,18037,18079,18121,18163
  1493.     dc.w    18205,18247,18288,18330,18372,18413,18455,18496
  1494.     dc.w    18538,18579,18621,18662,18703,18744,18786,18827
  1495.     dc.w    18868,18909,18950,18991,19032,19073,19114,19154
  1496.     dc.w    19195,19236,19277,19317,19358,19398,19439,19479
  1497.     dc.w    19520,19560,19600,19641,19681,19721,19761,19801
  1498.     dc.w    19841,19881,19921,19961,20001,20041,20080,20120
  1499.     dc.w    20160,20199,20239,20278,20318,20357,20397,20436
  1500.     dc.w    20475,20514,20554,20593,20632,20671,20710,20749
  1501.     dc.w    20788,20826,20865,20904,20943,20981,21020,21058
  1502.     dc.w    21097,21135,21174,21212,21250,21288,21327,21365
  1503.     dc.w    21403,21441,21479,21517,21555,21593,21630,21668
  1504.     dc.w    21706,21743,21781,21819,21856,21893,21931,21968
  1505.     dc.w    22005,22043,22080,22117,22154,22191,22228,22265
  1506.     dc.w    22302,22338,22375,22412,22449,22485,22522,22558
  1507.     dc.w    22595,22631,22667,22704,22740,22776,22812,22848
  1508.     dc.w    22884,22920,22956,22992,23028,23063,23099,23135
  1509.     dc.w    23170,23206,23241,23276,23312,23347,23382,23418
  1510.     dc.w    23453,23488,23523,23558,23593,23628,23662,23697
  1511.     dc.w    23732,23766,23801,23835,23870,23904,23939,23973
  1512.     dc.w    24007,24042,24076,24110,24144,24178,24212,24245
  1513.     dc.w    24279,24313,24346,24380,24414,24447,24481,24514
  1514.     dc.w    24547,24581,24614,24647,24680,24713,24746,24779
  1515.     dc.w    24812,24845,24877,24910,24943,24975,25008,25040
  1516.     dc.w    25073,25105,25137,25169,25202,25234,25266,25298
  1517.     dc.w    25330,25361,25393,25425,25457,25488,25520,25551
  1518.     dc.w    25583,25614,25645,25677,25708,25739,25770,25801
  1519.     dc.w    25832,25863,25894,25925,25955,25986,26017,26047
  1520.     dc.w    26077,26108,26138,26168,26199,26229,26259,26289
  1521.     dc.w    26319,26349,26379,26409,26438,26468,26497,26527
  1522.     dc.w    26556,26586,26615,26644,26674,26703,26732,26761
  1523.     dc.w    26790,26819,26848,26877,26905,26934,26963,26991
  1524.     dc.w    27020,27048,27076,27105,27133,27161,27189,27217
  1525.     dc.w    27245,27273,27301,27329,27356,27384,27412,27439
  1526.     dc.w    27466,27494,27521,27548,27576,27603,27630,27657
  1527.     dc.w    27684,27711,27737,27764,27791,27817,27844,27870
  1528.     dc.w    27897,27923,27949,27975,28002,28028,28054,28080
  1529.     dc.w    28105,28131,28157,28183,28208,28234,28259,28285
  1530.     dc.w    28310,28335,28361,28386,28411,28436,28461,28486
  1531.     dc.w    28511,28535,28560,28584,28609,28633,28658,28682
  1532.     dc.w    28706,28731,28755,28779,28803,28827,28851,28874
  1533.     dc.w    28898,28922,28945,28969,28992,29016,29039,29062
  1534.     dc.w    29086,29109,29132,29155,29178,29201,29223,29246
  1535.     dc.w    29269,29291,29314,29336,29358,29381,29403,29425
  1536.     dc.w    29447,29469,29491,29513,29535,29556,29578,29600
  1537.     dc.w    29621,29643,29664,29685,29707,29728,29749,29770
  1538.     dc.w    29791,29812,29833,29854,29874,29895,29915,29936
  1539.     dc.w    29956,29977,29997,30017,30037,30057,30077,30097
  1540.     dc.w    30117,30137,30156,30176,30195,30215,30234,30254
  1541.     dc.w    30273,30292,30311,30330,30349,30368,30387,30406
  1542.     dc.w    30425,30443,30462,30480,30499,30517,30535,30554
  1543.     dc.w    30572,30590,30608,30626,30643,30661,30679,30696
  1544.     dc.w    30714,30732,30749,30766,30783,30801,30818,30835
  1545.     dc.w    30852,30869,30886,30902,30919,30936,30952,30969
  1546.     dc.w    30985,31001,31017,31034,31050,31066,31082,31098
  1547.     dc.w    31113,31129,31145,31160,31176,31191,31207,31222
  1548.     dc.w    31237,31252,31267,31282,31297,31312,31327,31341
  1549.     dc.w    31356,31371,31385,31400,31414,31428,31442,31456
  1550.     dc.w    31470,31484,31499,31512,31526,31540,31553,31567
  1551.     dc.w    31580,31594,31607,31620,31633,31646,31659,31672
  1552.     dc.w    31685,31698,31711,31723,31736,31748,31761,31773
  1553.     dc.w    31785,31797,31809,31822,31833,31845,31857,31869
  1554.     dc.w    31880,31892,31903,31915,31926,31938,31949,31960
  1555.     dc.w    31971,31982,31993,32004,32014,32025,32036,32046
  1556.     dc.w    32057,32067,32077,32087,32098,32108,32118,32128
  1557.     dc.w    32137,32147,32157,32166,32176,32186,32195,32204
  1558.     dc.w    32213,32223,32232,32241,32250,32259,32267,32276
  1559.     dc.w    32285,32293,32302,32310,32318,32327,32335,32343
  1560.     dc.w    32351,32359,32367,32375,32382,32390,32398,32405
  1561.     dc.w    32413,32420,32427,32434,32441,32448,32455,32462
  1562.     dc.w    32469,32476,32482,32489,32495,32502,32508,32514
  1563.     dc.w    32520,32527,32533,32539,32545,32550,32556,32562
  1564.     dc.w    32567,32573,32578,32584,32589,32594,32599,32604
  1565.     dc.w    32609,32614,32619,32624,32628,32633,32637,32642
  1566.     dc.w    32646,32650,32655,32659,32663,32667,32670,32675
  1567.     dc.w    32678,32682,32685,32689,32693,32696,32699,32702
  1568.     dc.w    32705,32708,32711,32714,32717,32720,32722,32725
  1569.     dc.w    32728,32730,32732,32735,32737,32739,32741,32743
  1570.     dc.w    32745,32747,32748,32750,32751,32753,32754,32756
  1571.     dc.w    32757,32758,32760,32761,32761,32763,32763,32764
  1572.     dc.w    32765,32765,32766,32766,32767,32766,32767,32767
  1573.     dc.w    32767,32767,32767,32767,32766,32766,32766,32765
  1574.     dc.w    32765,32764,32763,32762,32761,32760,32759,32758
  1575.     dc.w    32757,32756,32755,32753,32752,32750,32748,32747
  1576.     dc.w    32745,32743,32741,32739,32737,32735,32732,32730
  1577.     dc.w    32728,32725,32722,32720,32717,32714,32711,32708
  1578.     dc.w    32705,32702,32699,32696,32692,32689,32685,32682
  1579.     dc.w    32678,32674,32671,32667,32663,32659,32655,32650
  1580.     dc.w    32646,32642,32637,32633,32628,32624,32619,32614
  1581.     dc.w    32609,32604,32599,32594,32589,32584,32578,32573
  1582.     dc.w    32567,32562,32556,32550,32545,32539,32533,32527
  1583.     dc.w    32521,32514,32508,32502,32495,32489,32482,32476
  1584.     dc.w    32469,32462,32455,32448,32441,32434,32427,32420
  1585.     dc.w    32412,32405,32397,32390,32382,32375,32367,32359
  1586.     dc.w    32351,32343,32335,32327,32318,32310,32302,32293
  1587.     dc.w    32285,32276,32267,32258,32250,32241,32232,32223
  1588.     dc.w    32213,32204,32195,32185,32176,32166,32157,32147
  1589.     dc.w    32137,32128,32118,32108,32098,32087,32077,32067
  1590.     dc.w    32057,32046,32036,32025,32014,32004,31993,31982
  1591.     dc.w    31971,31960,31949,31937,31926,31915,31903,31892
  1592.     dc.w    31880,31869,31857,31845,31833,31821,31809,31797
  1593.     dc.w    31785,31773,31760,31748,31736,31723,31710,31698
  1594.     dc.w    31685,31672,31659,31646,31633,31620,31607,31593
  1595.     dc.w    31580,31567,31553,31539,31526,31512,31498,31484
  1596.     dc.w    31470,31456,31442,31428,31414,31399,31385,31371
  1597.     dc.w    31356,31341,31327,31312,31297,31282,31267,31252
  1598.     dc.w    31237,31222,31206,31191,31176,31160,31145,31129
  1599.     dc.w    31113,31097,31082,31066,31050,31033,31017,31001
  1600.     dc.w    30985,30968,30952,30935,30919,30902,30885,30868
  1601.     dc.w    30852,30835,30818,30800,30783,30766,30749,30731
  1602.     dc.w    30714,30696,30679,30661,30643,30625,30607,30589
  1603.     dc.w    30571,30553,30535,30517,30498,30480,30462,30443
  1604.     dc.w    30424,30406,30387,30368,30349,30330,30311,30292
  1605.     dc.w    30273,30253,30234,30215,30195,30176,30156,30136
  1606.     dc.w    30117,30097,30077,30057,30037,30017,29996,29976
  1607.     dc.w    29956,29935,29915,29894,29874,29853,29832,29812
  1608.     dc.w    29791,29770,29749,29728,29706,29685,29664,29642
  1609.     dc.w    29621,29599,29578,29556,29534,29513,29491,29469
  1610.     dc.w    29447,29425,29403,29380,29358,29336,29313,29291
  1611.     dc.w    29268,29246,29223,29200,29177,29154,29131,29108
  1612.     dc.w    29085,29062,29039,29016,28992,28969,28945,28922
  1613.     dc.w    28898,28874,28850,28827,28803,28779,28755,28730
  1614.     dc.w    28706,28682,28658,28633,28609,28584,28560,28535
  1615.     dc.w    28510,28485,28460,28435,28410,28385,28360,28335
  1616.     dc.w    28310,28284,28259,28234,28208,28182,28157,28131
  1617.     dc.w    28105,28079,28053,28027,28001,27975,27949,27923
  1618.     dc.w    27896,27870,27843,27817,27790,27764,27737,27710
  1619.     dc.w    27683,27656,27629,27602,27575,27548,27521,27493
  1620.     dc.w    27466,27439,27411,27384,27356,27328,27300,27273
  1621.     dc.w    27245,27217,27189,27161,27133,27104,27076,27048
  1622.     dc.w    27019,26991,26962,26934,26905,26876,26848,26819
  1623.     dc.w    26790,26761,26732,26703,26673,26644,26615,26586
  1624.     dc.w    26556,26527,26497,26468,26438,26408,26378,26349
  1625.     dc.w    26319,26289,26259,26229,26198,26168,26138,26108
  1626.     dc.w    26077,26047,26016,25986,25955,25924,25893,25863
  1627.     dc.w    25832,25801,25770,25739,25708,25676,25645,25614
  1628.     dc.w    25582,25551,25519,25488,25456,25425,25393,25361
  1629.     dc.w    25329,25297,25265,25233,25201,25169,25137,25105
  1630.     dc.w    25072,25040,25007,24975,24942,24910,24877,24844
  1631.     dc.w    24811,24779,24746,24713,24680,24647,24613,24580
  1632.     dc.w    24547,24514,24480,24447,24413,24380,24346,24312
  1633.     dc.w    24279,24245,24211,24177,24143,24109,24075,24041
  1634.     dc.w    24007,23973,23938,23904,23870,23835,23801,23766
  1635.     dc.w    23731,23697,23662,23627,23592,23557,23522,23487
  1636.     dc.w    23452,23417,23382,23347,23311,23276,23241,23205
  1637.     dc.w    23170,23134,23099,23063,23027,22991,22955,22920
  1638.     dc.w    22884,22848,22812,22775,22739,22703,22667,22630
  1639.     dc.w    22594,22558,22521,22485,22448,22411,22375,22338
  1640.     dc.w    22301,22264,22227,22190,22153,22116,22079,22042
  1641.     dc.w    22005,21968,21930,21893,21856,21818,21781,21743
  1642.     dc.w    21705,21668,21630,21592,21554,21516,21478,21440
  1643.     dc.w    21402,21364,21326,21288,21250,21212,21173,21135
  1644.     dc.w    21096,21058,21019,20981,20942,20903,20865,20826
  1645.     dc.w    20787,20748,20709,20670,20631,20592,20553,20514
  1646.     dc.w    20475,20435,20396,20357,20317,20278,20238,20199
  1647.     dc.w    20159,20120,20080,20040,20000,19961,19921,19881
  1648.     dc.w    19841,19801,19761,19720,19680,19640,19600,19560
  1649.     dc.w    19519,19479,19438,19398,19357,19317,19276,19235
  1650.     dc.w    19195,19154,19113,19072,19031,18991,18950,18909
  1651.     dc.w    18867,18826,18785,18744,18703,18661,18620,18579
  1652.     dc.w    18537,18496,18454,18413,18371,18329,18288,18246
  1653.     dc.w    18204,18162,18121,18079,18037,17995,17953,17911
  1654.     dc.w    17869,17826,17784,17742,17700,17657,17615,17573
  1655.     dc.w    17530,17488,17445,17403,17360,17317,17275,17232
  1656.     dc.w    17189,17146,17103,17061,17018,16975,16932,16889
  1657.     dc.w    16846,16802,16759,16716,16673,16629,16586,16543
  1658.     dc.w    16499,16456,16412,16369,16325,16282,16238,16194
  1659.     dc.w    16151,16107,16063,16019,15975,15932,15888,15844
  1660.     dc.w    15800,15756,15711,15667,15623,15579,15535,15490
  1661.     dc.w    15446,15402,15357,15313,15269,15224,15180,15135
  1662.     dc.w    15090,15046,15001,14956,14912,14867,14822,14777
  1663.     dc.w    14732,14687,14642,14597,14552,14507,14462,14417
  1664.     dc.w    14372,14327,14282,14236,14191,14146,14100,14055
  1665.     dc.w    14010,13964,13919,13873,13828,13782,13736,13691
  1666.     dc.w    13645,13599,13554,13508,13462,13416,13370,13324
  1667.     dc.w    13278,13232,13186,13140,13094,13048,13002,12956
  1668.     dc.w    12910,12864,12817,12771,12725,12678,12632,12586
  1669.     dc.w    12539,12493,12446,12400,12353,12307,12260,12214
  1670.     dc.w    12167,12120,12073,12027,11980,11933,11886,11839
  1671.     dc.w    11793,11746,11699,11652,11605,11558,11511,11464
  1672.     dc.w    11417,11369,11322,11275,11228,11181,11133,11086
  1673.     dc.w    11039,10991,10944,10897,10849,10802,10754,10707
  1674.     dc.w    10659,10612,10564,10517,10469,10421,10374,10326
  1675.     dc.w    10278,10231,10183,10135,10087,10039,9992,9944
  1676.     dc.w    9896,9848,9800,9752,9704,9656,9608,9560
  1677.     dc.w    9512,9464,9415,9367,9319,9271,9223,9174
  1678.     dc.w    9126,9078,9030,8981,8933,8884,8836,8788
  1679.     dc.w    8739,8691,8642,8594,8545,8497,8448,8400
  1680.     dc.w    8351,8302,8254,8205,8156,8108,8059,8010
  1681.     dc.w    7962,7913,7864,7815,7766,7718,7669,7620
  1682.     dc.w    7571,7522,7473,7424,7375,7326,7277,7228
  1683.     dc.w    7179,7130,7081,7032,6983,6934,6885,6835
  1684.     dc.w    6786,6737,6688,6639,6589,6540,6491,6442
  1685.     dc.w    6392,6343,6294,6244,6195,6146,6096,6047
  1686.     dc.w    5998,5948,5899,5849,5800,5750,5701,5651
  1687.     dc.w    5602,5552,5503,5453,5404,5354,5304,5255
  1688.     dc.w    5205,5156,5106,5056,5007,4957,4907,4858
  1689.     dc.w    4808,4758,4708,4659,4609,4559,4509,4459
  1690.     dc.w    4410,4360,4310,4260,4210,4161,4111,4061
  1691.     dc.w    4011,3961,3911,3861,3811,3761,3711,3661
  1692.     dc.w    3612,3562,3512,3462,3412,3362,3312,3262
  1693.     dc.w    3212,3162,3112,3061,3011,2961,2911,2861
  1694.     dc.w    2811,2761,2711,2661,2611,2561,2511,2460
  1695.     dc.w    2410,2360,2310,2260,2210,2160,2109,2059
  1696.     dc.w    2009,1959,1909,1859,1808,1758,1708,1658
  1697.     dc.w    1608,1557,1507,1457,1407,1357,1306,1256
  1698.     dc.w    1206,1156,1105,1055,1005,955,904,854
  1699.     dc.w    804,754,703,653,603,553,502,452
  1700.     dc.w    402,352,301,251,201,151,100,50
  1701.     dc.w    0,-49,-100,-150,-200,-250,-301,-351
  1702.     dc.w    -401,-452,-502,-552,-602,-653,-703,-753
  1703.     dc.w    -803,-854,-904,-954,-1004,-1055,-1105,-1155
  1704.     dc.w    -1205,-1255,-1306,-1356,-1406,-1456,-1507,-1557
  1705.     dc.w    -1607,-1657,-1707,-1758,-1808,-1858,-1908,-1958
  1706.     dc.w    -2008,-2059,-2109,-2159,-2209,-2259,-2309,-2360
  1707.     dc.w    -2410,-2460,-2510,-2560,-2610,-2660,-2710,-2760
  1708.     dc.w    -2810,-2861,-2911,-2961,-3011,-3061,-3111,-3161
  1709.     dc.w    -3211,-3261,-3311,-3361,-3411,-3461,-3511,-3561
  1710.     dc.w    -3611,-3661,-3711,-3761,-3811,-3860,-3910,-3960
  1711.     dc.w    -4010,-4060,-4110,-4160,-4210,-4259,-4309,-4359
  1712.     dc.w    -4409,-4459,-4509,-4558,-4608,-4658,-4708,-4757
  1713.     dc.w    -4807,-4857,-4906,-4956,-5006,-5056,-5105,-5155
  1714.     dc.w    -5204,-5254,-5304,-5353,-5403,-5452,-5502,-5552
  1715.     dc.w    -5601,-5651,-5700,-5750,-5799,-5849,-5898,-5947
  1716.     dc.w    -5997,-6046,-6096,-6145,-6194,-6244,-6293,-6342
  1717.     dc.w    -6392,-6441,-6490,-6540,-6589,-6638,-6687,-6736
  1718.     dc.w    -6786,-6835,-6884,-6933,-6982,-7031,-7080,-7129
  1719.     dc.w    -7178,-7227,-7277,-7326,-7374,-7423,-7472,-7521
  1720.     dc.w    -7570,-7619,-7668,-7717,-7766,-7815,-7863,-7912
  1721.     dc.w    -7961,-8010,-8058,-8107,-8156,-8204,-8253,-8302
  1722.     dc.w    -8350,-8399,-8448,-8496,-8545,-8593,-8642,-8690
  1723.     dc.w    -8739,-8787,-8835,-8884,-8932,-8981,-9029,-9077
  1724.     dc.w    -9125,-9174,-9222,-9270,-9318,-9367,-9415,-9463
  1725.     dc.w    -9511,-9559,-9607,-9655,-9703,-9751,-9799,-9847
  1726.     dc.w    -9895,-9943,-9991,-10039,-10086,-10134,-10182,-10230
  1727.     dc.w    -10278,-10325,-10373,-10421,-10468,-10516,-10564,-10611
  1728.     dc.w    -10659,-10706,-10754,-10801,-10849,-10896,-10943,-10991
  1729.     dc.w    -11038,-11085,-11133,-11180,-11227,-11274,-11322,-11369
  1730.     dc.w    -11416,-11463,-11510,-11557,-11604,-11651,-11698,-11745
  1731.     dc.w    -11792,-11839,-11886,-11932,-11979,-12026,-12073,-12119
  1732.     dc.w    -12166,-12213,-12259,-12306,-12353,-12399,-12446,-12492
  1733.     dc.w    -12539,-12585,-12631,-12678,-12724,-12770,-12817,-12863
  1734.     dc.w    -12909,-12955,-13001,-13048,-13094,-13140,-13186,-13232
  1735.     dc.w    -13278,-13324,-13370,-13415,-13461,-13507,-13553,-13599
  1736.     dc.w    -13644,-13690,-13736,-13781,-13827,-13872,-13918,-13963
  1737.     dc.w    -14009,-14054,-14100,-14145,-14190,-14236,-14281,-14326
  1738.     dc.w    -14371,-14416,-14462,-14507,-14552,-14597,-14642,-14687
  1739.     dc.w    -14732,-14776,-14821,-14866,-14911,-14956,-15000,-15045
  1740.     dc.w    -15090,-15134,-15179,-15223,-15268,-15312,-15357,-15401
  1741.     dc.w    -15445,-15490,-15534,-15578,-15622,-15667,-15711,-15755
  1742.     dc.w    -15799,-15843,-15887,-15931,-15975,-16019,-16062,-16106
  1743.     dc.w    -16150,-16194,-16237,-16281,-16325,-16368,-16412,-16455
  1744.     dc.w    -16499,-16542,-16585,-16629,-16672,-16715,-16758,-16802
  1745.     dc.w    -16845,-16888,-16931,-16974,-17017,-17060,-17103,-17146
  1746.     dc.w    -17188,-17231,-17274,-17317,-17359,-17402,-17444,-17487
  1747.     dc.w    -17529,-17572,-17614,-17657,-17699,-17741,-17783,-17826
  1748.     dc.w    -17868,-17910,-17952,-17994,-18036,-18078,-18120,-18162
  1749.     dc.w    -18204,-18245,-18287,-18329,-18370,-18412,-18454,-18495
  1750.     dc.w    -18537,-18578,-18619,-18661,-18702,-18743,-18784,-18826
  1751.     dc.w    -18867,-18908,-18949,-18990,-19031,-19072,-19112,-19153
  1752.     dc.w    -19194,-19235,-19275,-19316,-19357,-19397,-19438,-19478
  1753.     dc.w    -19518,-19559,-19599,-19639,-19680,-19720,-19760,-19800
  1754.     dc.w    -19840,-19880,-19920,-19960,-20000,-20039,-20079,-20119
  1755.  
  1756.     dc.w    -20158,-20198,-20238,-20277,-20317,-20356,-20395,-20435
  1757.     dc.w    -20474,-20513,-20552,-20591,-20631,-20670,-20709,-20747
  1758.     dc.w    -20786,-20825,-20864,-20903,-20941,-20980,-21019,-21057
  1759.     dc.w    -21096,-21134,-21172,-21211,-21249,-21287,-21325,-21364
  1760.     dc.w    -21402,-21440,-21478,-21516,-21554,-21591,-21629,-21667
  1761.     dc.w    -21705,-21742,-21780,-21817,-21855,-21892,-21930,-21967
  1762.     dc.w    -22004,-22041,-22079,-22116,-22153,-22190,-22227,-22264
  1763.     dc.w    -22300,-22337,-22374,-22411,-22447,-22484,-22520,-22557
  1764.     dc.w    -22593,-22630,-22666,-22702,-22739,-22775,-22811,-22847
  1765.     dc.w    -22883,-22919,-22955,-22991,-23026,-23062,-23098,-23133
  1766.     dc.w    -23169,-23204,-23240,-23275,-23311,-23346,-23381,-23416
  1767.     dc.w    -23452,-23487,-23522,-23557,-23591,-23626,-23661,-23696
  1768.     dc.w    -23731,-23765,-23800,-23834,-23869,-23903,-23938,-23972
  1769.     dc.w    -24006,-24040,-24074,-24108,-24142,-24176,-24210,-24244
  1770.     dc.w    -24278,-24312,-24345,-24379,-24412,-24446,-24479,-24513
  1771.     dc.w    -24546,-24579,-24613,-24646,-24679,-24712,-24745,-24778
  1772.     dc.w    -24811,-24843,-24876,-24909,-24941,-24974,-25007,-25039
  1773.     dc.w    -25071,-25104,-25136,-25168,-25200,-25232,-25264,-25296
  1774.     dc.w    -25328,-25360,-25392,-25424,-25455,-25487,-25519,-25550
  1775.     dc.w    -25582,-25613,-25644,-25676,-25707,-25738,-25769,-25800
  1776.     dc.w    -25831,-25862,-25893,-25923,-25954,-25985,-26015,-26046
  1777.     dc.w    -26076,-26107,-26137,-26167,-26198,-26228,-26258,-26288
  1778.     dc.w    -26318,-26348,-26378,-26407,-26437,-26467,-26496,-26526
  1779.     dc.w    -26555,-26585,-26614,-26643,-26673,-26702,-26731,-26760
  1780.     dc.w    -26789,-26818,-26847,-26875,-26904,-26933,-26961,-26990
  1781.     dc.w    -27018,-27047,-27075,-27103,-27132,-27160,-27188,-27216
  1782.     dc.w    -27244,-27272,-27300,-27327,-27355,-27383,-27410,-27438
  1783.     dc.w    -27465,-27493,-27520,-27547,-27574,-27601,-27629,-27656
  1784.     dc.w    -27682,-27709,-27736,-27763,-27789,-27816,-27843,-27869
  1785.     dc.w    -27895,-27922,-27948,-27974,-28000,-28026,-28053,-28078
  1786.     dc.w    -28104,-28130,-28156,-28182,-28207,-28233,-28258,-28284
  1787.     dc.w    -28309,-28334,-28359,-28385,-28410,-28435,-28460,-28484
  1788.     dc.w    -28509,-28534,-28559,-28583,-28608,-28632,-28657,-28681
  1789.     dc.w    -28705,-28730,-28754,-28778,-28802,-28826,-28850,-28873
  1790.     dc.w    -28897,-28921,-28944,-28968,-28991,-29015,-29038,-29061
  1791.     dc.w    -29084,-29108,-29131,-29154,-29176,-29199,-29222,-29245
  1792.     dc.w    -29267,-29290,-29312,-29335,-29357,-29380,-29402,-29424
  1793.     dc.w    -29446,-29468,-29490,-29512,-29534,-29555,-29577,-29599
  1794.     dc.w    -29620,-29642,-29663,-29684,-29706,-29727,-29748,-29769
  1795.     dc.w    -29790,-29811,-29832,-29852,-29873,-29894,-29914,-29935
  1796.     dc.w    -29955,-29975,-29996,-30016,-30036,-30056,-30076,-30096
  1797.     dc.w    -30116,-30135,-30155,-30175,-30194,-30214,-30233,-30253
  1798.     dc.w    -30272,-30291,-30310,-30329,-30348,-30367,-30386,-30405
  1799.     dc.w    -30423,-30442,-30461,-30479,-30498,-30516,-30534,-30552
  1800.     dc.w    -30570,-30589,-30607,-30624,-30642,-30660,-30678,-30695
  1801.     dc.w    -30713,-30730,-30748,-30765,-30782,-30800,-30817,-30834
  1802.     dc.w    -30851,-30868,-30884,-30901,-30918,-30934,-30951,-30967
  1803.     dc.w    -30984,-31000,-31016,-31033,-31049,-31065,-31081,-31096
  1804.     dc.w    -31112,-31128,-31144,-31159,-31175,-31190,-31206,-31221
  1805.     dc.w    -31236,-31251,-31266,-31281,-31296,-31311,-31326,-31341
  1806.     dc.w    -31355,-31370,-31384,-31399,-31413,-31427,-31441,-31455
  1807.     dc.w    -31469,-31483,-31497,-31511,-31525,-31539,-31552,-31566
  1808.     dc.w    -31579,-31592,-31606,-31619,-31632,-31645,-31658,-31671
  1809.     dc.w    -31684,-31697,-31709,-31722,-31735,-31747,-31760,-31772
  1810.     dc.w    -31784,-31796,-31808,-31820,-31832,-31844,-31856,-31868
  1811.     dc.w    -31879,-31891,-31902,-31914,-31925,-31937,-31948,-31959
  1812.     dc.w    -31970,-31981,-31992,-32003,-32013,-32024,-32035,-32045
  1813.     dc.w    -32056,-32066,-32076,-32086,-32097,-32107,-32117,-32127
  1814.     dc.w    -32136,-32146,-32156,-32166,-32175,-32185,-32194,-32203
  1815.     dc.w    -32212,-32222,-32231,-32240,-32249,-32258,-32266,-32275
  1816.     dc.w    -32284,-32292,-32301,-32309,-32317,-32326,-32334,-32342
  1817.     dc.w    -32350,-32358,-32366,-32374,-32381,-32389,-32396,-32404
  1818.     dc.w    -32411,-32419,-32426,-32433,-32440,-32447,-32454,-32461
  1819.     dc.w    -32468,-32475,-32481,-32488,-32494,-32501,-32507,-32513
  1820.     dc.w    -32520,-32526,-32532,-32538,-32544,-32549,-32555,-32561
  1821.     dc.w    -32566,-32572,-32577,-32583,-32588,-32593,-32598,-32603
  1822.     dc.w    -32608,-32613,-32618,-32623,-32627,-32632,-32636,-32641
  1823.     dc.w    -32645,-32649,-32654,-32658,-32662,-32666,-32670,-32674
  1824.     dc.w    -32677,-32681,-32684,-32688,-32691,-32695,-32698,-32701
  1825.     dc.w    -32704,-32707,-32710,-32713,-32716,-32719,-32721,-32724
  1826.     dc.w    -32727,-32729,-32731,-32734,-32736,-32738,-32740,-32742
  1827.     dc.w    -32744,-32746,-32747,-32749,-32751,-32752,-32754,-32755
  1828.     dc.w    -32756,-32757,-32758,-32759,-32760,-32761,-32762,-32763
  1829.     dc.w    -32764,-32764,-32765,-32765,-32765,-32766,-32766,-32766
  1830.     dc.w    -32766,-32766,-32766,-32766,-32765,-32765,-32765,-32764
  1831.     dc.w    -32764,-32763,-32762,-32761,-32760,-32759,-32758,-32757
  1832.     dc.w    -32756,-32755,-32753,-32752,-32751,-32749,-32747,-32746
  1833.     dc.w    -32744,-32742,-32740,-32738,-32736,-32734,-32731,-32729
  1834.     dc.w    -32727,-32724,-32721,-32719,-32716,-32713,-32710,-32707
  1835.     dc.w    -32704,-32701,-32698,-32695,-32691,-32688,-32684,-32681
  1836.     dc.w    -32677,-32673,-32670,-32666,-32662,-32658,-32654,-32649
  1837.     dc.w    -32645,-32641,-32636,-32632,-32627,-32623,-32618,-32613
  1838.     dc.w    -32608,-32603,-32598,-32593,-32588,-32583,-32577,-32572
  1839.     dc.w    -32566,-32561,-32555,-32549,-32544,-32538,-32532,-32526
  1840.     dc.w    -32520,-32513,-32507,-32501,-32494,-32488,-32481,-32475
  1841.     dc.w    -32468,-32461,-32454,-32447,-32440,-32433,-32426,-32419
  1842.     dc.w    -32411,-32404,-32396,-32389,-32381,-32373,-32366,-32358
  1843.     dc.w    -32350,-32342,-32334,-32326,-32317,-32309,-32301,-32292
  1844.     dc.w    -32284,-32275,-32266,-32257,-32249,-32240,-32231,-32222
  1845.     dc.w    -32212,-32203,-32194,-32184,-32175,-32165,-32156,-32146
  1846.     dc.w    -32136,-32126,-32117,-32107,-32096,-32086,-32076,-32066
  1847.     dc.w    -32055,-32045,-32034,-32024,-32013,-32002,-31992,-31981
  1848.     dc.w    -31970,-31959,-31948,-31936,-31925,-31914,-31902,-31891
  1849.     dc.w    -31879,-31868,-31856,-31844,-31832,-31820,-31808,-31796
  1850.     dc.w    -31784,-31772,-31759,-31747,-31734,-31722,-31709,-31697
  1851.     dc.w    -31684,-31671,-31658,-31645,-31632,-31619,-31606,-31592
  1852.     dc.w    -31579,-31566,-31552,-31538,-31525,-31511,-31497,-31483
  1853.     dc.w    -31469,-31455,-31441,-31427,-31413,-31398,-31384,-31370
  1854.     dc.w    -31355,-31340,-31326,-31311,-31296,-31281,-31266,-31251
  1855.     dc.w    -31236,-31221,-31205,-31190,-31175,-31159,-31143,-31128
  1856.     dc.w    -31112,-31096,-31080,-31064,-31048,-31032,-31016,-31000
  1857.     dc.w    -30984,-30967,-30951,-30934,-30918,-30901,-30884,-30867
  1858.     dc.w    -30850,-30834,-30816,-30799,-30782,-30765,-30748,-30730
  1859.     dc.w    -30713,-30695,-30677,-30660,-30642,-30624,-30606,-30588
  1860.     dc.w    -30570,-30552,-30534,-30516,-30497,-30479,-30460,-30442
  1861.     dc.w    -30423,-30405,-30386,-30367,-30348,-30329,-30310,-30291
  1862.     dc.w    -30272,-30252,-30233,-30214,-30194,-30175,-30155,-30135
  1863.     dc.w    -30115,-30096,-30076,-30056,-30036,-30016,-29995,-29975
  1864.     dc.w    -29955,-29934,-29914,-29893,-29873,-29852,-29831,-29810
  1865.     dc.w    -29790,-29769,-29748,-29726,-29705,-29684,-29663,-29641
  1866.     dc.w    -29620,-29598,-29577,-29555,-29533,-29512,-29490,-29468
  1867.     dc.w    -29446,-29424,-29401,-29379,-29357,-29335,-29312,-29290
  1868.     dc.w    -29267,-29245,-29222,-29199,-29176,-29153,-29130,-29107
  1869.     dc.w    -29084,-29061,-29038,-29014,-28991,-28968,-28944,-28920
  1870.     dc.w    -28897,-28873,-28849,-28825,-28801,-28777,-28753,-28729
  1871.     dc.w    -28705,-28681,-28656,-28632,-28608,-28583,-28558,-28534
  1872.     dc.w    -28509,-28484,-28459,-28434,-28409,-28384,-28359,-28334
  1873.     dc.w    -28309,-28283,-28258,-28232,-28207,-28181,-28156,-28130
  1874.     dc.w    -28104,-28078,-28052,-28026,-28000,-27974,-27948,-27922
  1875.     dc.w    -27895,-27869,-27842,-27816,-27789,-27763,-27736,-27709
  1876.     dc.w    -27682,-27655,-27628,-27601,-27574,-27547,-27520,-27492
  1877.     dc.w    -27465,-27437,-27410,-27382,-27355,-27327,-27299,-27271
  1878.     dc.w    -27244,-27216,-27188,-27160,-27131,-27103,-27075,-27047
  1879.     dc.w    -27018,-26990,-26961,-26933,-26904,-26875,-26846,-26818
  1880.     dc.w    -26789,-26760,-26731,-26701,-26672,-26643,-26614,-26584
  1881.     dc.w    -26555,-26526,-26496,-26466,-26437,-26407,-26377,-26347
  1882.     dc.w    -26317,-26287,-26257,-26227,-26197,-26167,-26137,-26106
  1883.     dc.w    -26076,-26046,-26015,-25984,-25954,-25923,-25892,-25861
  1884.     dc.w    -25831,-25800,-25769,-25737,-25706,-25675,-25644,-25613
  1885.     dc.w    -25581,-25550,-25518,-25487,-25455,-25423,-25392,-25360
  1886.     dc.w    -25328,-25296,-25264,-25232,-25200,-25168,-25136,-25103
  1887.     dc.w    -25071,-25039,-25006,-24974,-24941,-24908,-24876,-24843
  1888.     dc.w    -24810,-24777,-24744,-24711,-24678,-24645,-24612,-24579
  1889.     dc.w    -24546,-24512,-24479,-24446,-24412,-24379,-24345,-24311
  1890.     dc.w    -24278,-24244,-24210,-24176,-24142,-24108,-24074,-24040
  1891.     dc.w    -24006,-23971,-23937,-23903,-23868,-23834,-23799,-23765
  1892.     dc.w    -23730,-23695,-23661,-23626,-23591,-23556,-23521,-23486
  1893.     dc.w    -23451,-23416,-23381,-23346,-23310,-23275,-23239,-23204
  1894.     dc.w    -23169,-23133,-23097,-23062,-23026,-22990,-22954,-22918
  1895.     dc.w    -22882,-22846,-22810,-22774,-22738,-22702,-22666,-22629
  1896.     dc.w    -22593,-22556,-22520,-22483,-22447,-22410,-22374,-22337
  1897.     dc.w    -22300,-22263,-22226,-22189,-22152,-22115,-22078,-22041
  1898.     dc.w    -22004,-21966,-21929,-21892,-21854,-21817,-21779,-21742
  1899.     dc.w    -21704,-21666,-21629,-21591,-21553,-21515,-21477,-21439
  1900.     dc.w    -21401,-21363,-21325,-21287,-21249,-21210,-21172,-21134
  1901.     dc.w    -21095,-21057,-21018,-20980,-20941,-20902,-20863,-20825
  1902.     dc.w    -20786,-20747,-20708,-20669,-20630,-20591,-20552,-20513
  1903.     dc.w    -20473,-20434,-20395,-20356,-20316,-20277,-20237,-20198
  1904.     dc.w    -20158,-20118,-20079,-20039,-19999,-19959,-19919,-19879
  1905.     dc.w    -19839,-19799,-19759,-19719,-19679,-19639,-19599,-19558
  1906.     dc.w    -19518,-19478,-19437,-19397,-19356,-19316,-19275,-19234
  1907.     dc.w    -19194,-19153,-19112,-19071,-19030,-18989,-18948,-18907
  1908.     dc.w    -18866,-18825,-18784,-18743,-18701,-18660,-18619,-18577
  1909.     dc.w    -18536,-18495,-18453,-18411,-18370,-18328,-18287,-18245
  1910.     dc.w    -18203,-18161,-18119,-18077,-18036,-17994,-17952,-17909
  1911.     dc.w    -17867,-17825,-17783,-17741,-17698,-17656,-17614,-17571
  1912.     dc.w    -17529,-17486,-17444,-17401,-17359,-17316,-17273,-17231
  1913.     dc.w    -17188,-17145,-17102,-17059,-17016,-16973,-16930,-16887
  1914.     dc.w    -16844,-16801,-16758,-16715,-16671,-16628,-16585,-16542
  1915.     dc.w    -16498,-16455,-16411,-16368,-16324,-16280,-16237,-16193
  1916.     dc.w    -16149,-16106,-16062,-16018,-15974,-15930,-15886,-15842
  1917.     dc.w    -15798,-15754,-15710,-15666,-15622,-15578,-15533,-15489
  1918.     dc.w    -15445,-15401,-15356,-15312,-15267,-15223,-15178,-15134
  1919.     dc.w    -15089,-15044,-15000,-14955,-14910,-14866,-14821,-14776
  1920.     dc.w    -14731,-14686,-14641,-14596,-14551,-14506,-14461,-14416
  1921.     dc.w    -14371,-14326,-14280,-14235,-14190,-14145,-14099,-14054
  1922.     dc.w    -14008,-13963,-13917,-13872,-13826,-13781,-13735,-13689
  1923.     dc.w    -13644,-13598,-13552,-13507,-13461,-13415,-13369,-13323
  1924.     dc.w    -13277,-13231,-13185,-13139,-13093,-13047,-13001,-12955
  1925.     dc.w    -12909,-12862,-12816,-12770,-12724,-12677,-12631,-12584
  1926.     dc.w    -12538,-12492,-12445,-12399,-12352,-12305,-12259,-12212
  1927.     dc.w    -12166,-12119,-12072,-12025,-11979,-11932,-11885,-11838
  1928.     dc.w    -11791,-11744,-11697,-11651,-11603,-11556,-11509,-11462
  1929.     dc.w    -11415,-11368,-11321,-11274,-11227,-11179,-11132,-11085
  1930.     dc.w    -11037,-10990,-10943,-10895,-10848,-10801,-10753,-10706
  1931.     dc.w    -10658,-10610,-10563,-10515,-10468,-10420,-10372,-10325
  1932.     dc.w    -10277,-10229,-10181,-10134,-10086,-10038,-9990,-9942
  1933.     dc.w    -9894,-9847,-9799,-9751,-9703,-9655,-9607,-9558
  1934.     dc.w    -9510,-9462,-9414,-9366,-9318,-9270,-9221,-9173
  1935.     dc.w    -9125,-9077,-9028,-8980,-8932,-8883,-8835,-8786
  1936.     dc.w    -8738,-8690,-8641,-8593,-8544,-8495,-8447,-8398
  1937.     dc.w    -8350,-8301,-8253,-8204,-8155,-8107,-8058,-8009
  1938.     dc.w    -7960,-7912,-7863,-7814,-7765,-7716,-7667,-7619
  1939.     dc.w    -7570,-7521,-7472,-7423,-7374,-7325,-7276,-7227
  1940.     dc.w    -7178,-7129,-7080,-7031,-6982,-6932,-6883,-6834
  1941.     dc.w    -6785,-6736,-6687,-6637,-6588,-6539,-6490,-6440
  1942.     dc.w    -6391,-6342,-6292,-6243,-6194,-6144,-6095,-6046
  1943.     dc.w    -5996,-5947,-5897,-5848,-5798,-5749,-5700,-5650
  1944.     dc.w    -5600,-5551,-5501,-5452,-5402,-5353,-5303,-5253
  1945.     dc.w    -5204,-5154,-5105,-5055,-5005,-4956,-4906,-4856
  1946.     dc.w    -4806,-4757,-4707,-4657,-4607,-4558,-4508,-4458
  1947.     dc.w    -4408,-4359,-4309,-4259,-4209,-4159,-4109,-4059
  1948.     dc.w    -4010,-3960,-3910,-3860,-3810,-3760,-3710,-3660
  1949.     dc.w    -3610,-3560,-3510,-3460,-3410,-3360,-3310,-3260
  1950.     dc.w    -3210,-3160,-3110,-3060,-3010,-2960,-2910,-2860
  1951.     dc.w    -2810,-2760,-2710,-2660,-2609,-2559,-2509,-2459
  1952.     dc.w    -2409,-2359,-2309,-2259,-2209,-2158,-2108,-2058
  1953.     dc.w    -2008,-1958,-1908,-1857,-1807,-1757,-1707,-1657
  1954.     dc.w    -1606,-1556,-1506,-1456,-1406,-1355,-1305,-1255
  1955.     dc.w    -1205,-1154,-1104,-1054,-1004,-953,-903,-853
  1956.     dc.w    -803,-752,-702,-652,-602,-551,-501,-451
  1957.     dc.w    -401,-350,-300,-250,-200,-149,-99,-49
  1958.  
  1959. *****************************************************************
  1960. ;Obj1
  1961.  
  1962.  
  1963. obj1table:
  1964.     dc.w    0,0
  1965.     dc.l    obj1pos,0,obj1coords,obj1table1,obj1table2
  1966.     dc.l    0,0,0,0
  1967.  
  1968. obj1coords:
  1969.     dc.l    obj1coordstable,obj1coordstable+1024
  1970.     dc.l    $ffffffff
  1971.  
  1972. obj1pos:
  1973.     dc.w    0,0,600
  1974.     dc.w    0,0,0
  1975.     dc.w    0,0,0
  1976.     dc.w    0,0,0
  1977.     dc.w    0,0,0
  1978.     dc.w    0,0,0
  1979.  
  1980.  
  1981. obj1coordstable:
  1982.     blk.b    2544,0
  1983.  
  1984. obj1table1:
  1985.     blk.b    1000,0
  1986.  
  1987. obj1table2:
  1988.     blk.b    1000,0
  1989.  
  1990.  
  1991. *****************************************************************
  1992.  
  1993. flaechensorttable:
  1994.     blk.b    1024*21,0
  1995.  
  1996.